列 のコレクション テーブル内の列を表すオブジェクト。
例
Columns コレクションを取得するには、Columns プロパティを使用します。 次の使用例は、作業中のプレゼンテーションの先頭の表を検索し、Column コレクションに含まれる Columns オブジェクトの数をカウントし、結果情報を表示します。
Dim ColCount, sl, 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
テーブルに列を追加するのにには、 Addメソッドを使用します。 この例では、既存のテーブルに列を作成し、新しい列の幅を 72 ポイント (2.54 センチ) に設定します。
With ActivePresentation.Slides(2).Shapes(5).Table
.Columns.Add.Width = 72
End With
単一の Column オブジェクトを取得するには、 Columns (index) を使用します。 Index は Columns コレクション内の列の位置を表します (通常は左から右に数えますが、 TableDirectionプロパティはこれを逆にすることができます)。 次の使用例は、スライド 2 の図形 5 で表の先頭列を選択します。
ActivePresentation.Slides(2).Shapes(5).Table.Columns(1).Select
関連項目
PowerPoint Object Model Reference
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。