表の中にあるすべての列を表す Columns コレクションを取得します。 値の取得のみ可能です。
構文
式。列
式Table オブジェクトを表す変数。
戻り値
段組み
注釈
コレクションの 1 つのメンバーを返す方法については、「コレクション からオブジェクトを返す」を参照してください。
例
次の使用例は、作業中のプレゼンテーションに含まれる最初の表の図形番号、スライド番号、および表の列数を表示します。
Dim ColCount As Integer
Dim sl As Integer
Dim sh As Integer
With ActivePresentation
For sl = 1 To .Slides.Count
For sh = 1 To .Slides(sl).Shapes.Count
If .Slides(sl).Shapes(sh).HasTable Then
ColCount = .Slides(sl).Shapes(sh) _
.Table.Columns.Count
MsgBox "Shape " & sh & " on slide " & sl & _
" contains the first table and has " & _
ColCount & " columns."
Exit Sub
End If
Next
Next
End With
次の使用例は、選択した図形に表が含まれるかどうかを調べます。 表がある場合、その表の列 1 の幅を 72 ポイント (1 インチ) に設定します。
With ActiveWindow.Selection.ShapeRange
If .HasTable = True Then
.Table.Columns(1).Width = 72
End If
End With
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。