表の列を表します。 Column オブジェクトは、 Columns コレクションのメンバーです。 Columns コレクションには、表内のすべての列が含まれます。
例
単一の Column オブジェクトを取得するには、 Columns (index) を使用します。 引数 Index には、 Columns コレクションにおける列の位置を指定します (通常、左から右に数えますが、 TableDirection プロパティを使用すると右から左に数えるように設定できます)。 次の使用例は、スライド 2 の図形 5 で表の先頭列を選択します。
ActivePresentation.Slides(2).Shapes(5).Table.Columns(1).Select
Column オブジェクトを間接的に参照するには、 Cell オブジェクトを使用します。 次の使用例は、先頭セル (行 1、列 1) 内のテキストを削除して新規テキストを挿入し、全体の列幅を 110 ポイントに設定します。
With ActivePresentation.Slides(2).Shapes(5).Table.Cell(1, 1)
.Shape.TextFrame.TextRange.Delete
.Shape.TextFrame.TextRange.Text = "Rooster"
.Parent.Columns(1).Width = 110
End With
表に列を追加するには、 Add メソッドを使用します。 次の使用例は、既存の表に列を作成し、その幅を 72 ポイント (2.54 センチ) に設定します。
With ActivePresentation.Slides(2).Shapes(5).Table
.Columns.Add.Width = 72
End With
Cells プロパティを使用して、Column オブジェクト内の個々のセルを変更します。 次の使用例は、表の先頭列を選択し、その下罫線に点線スタイルを適用します。
ActiveWindow.Selection.ShapeRange.Table.Columns(1) _
.Cells.Borders(ppBorderBottom).DashStyle = msoLineDash
関連項目
PowerPoint Object Model Reference
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。