ShapeRange.Table プロパティ (Publisher)

Microsoft Publisher の テーブル を表す Table オブジェクトを返します。

構文

式。テーブル

式ShapeRange オブジェクトを表す変数。

例

次の使用例は、作業中の文書の最初のページに 5 行 5 列の表を追加し、新しい表の最初の列を選択します。

Sub NewTable() 
 With ActiveDocument.Pages(1).Shapes.AddTable(NumRows:=5, _ 
 NumColumns:=5, Left:=72, Top:=300, Width:=400, Height:=100) 
 .Table.Columns(3).Cells(3).Fill.ForeColor.RGB = RGB _ 
 (Red:=255, Green:=0, Blue:=0) 
 End With 
End Sub

次の使用例は、作業中の文書の指定した表を選択します。 この使用例では、作業中の文書の最初のページに図形が少なくとも 1 つ存在することを前提としています。

Sub SelectTable() 
 With ActiveDocument.Pages(1).Shapes(1) 
 If .Type = pbTable Then 
 .Table.Rows(3).Cells(3).Fill.ForeColor _ 
 .RGB = RGB(Red:=150, Green:=150, Blue:=150) 
 End If 
 End With 
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。