PowerPoint VBAで表の列を削除する

「PPT 列の削除 マクロ」
という検索キーワードでのアクセスに気が付きました。

PowerPoint VBAで表の列を削除するには、どのようなコードを書けばいいのかを探していらしたのでしょうか。

先頭スライドに存在する表の1列目を削除するサンプル

以下のようなSubプロシージャで、アクティブなプレゼンテーションの先頭スライドに存在する表の1列目を削除できます。

一般的なレイアウトのスライドでは2つ目の図形内に表が存在するので、ここでは「.Shapes(2)」と指定しています。
　　With ActivePresentation.Slides(1).Shapes(2)

先頭スライドの2つ目の図形に表が存在するかをShape.HasTableプロパティで確認して、
　　If .HasTable Then

ColumnオブジェクトのDeleteメソッドで1列目を削除しています。
　　　.Table.Columns(1).Delete

オブジェクトの階層構造を理解しましょう

PowerPoint VBAのオブジェクトは、イレギュラーな部分の多いExcel VBAよりも理解しやすいと私は感じていますが、如何せん階層が深い点がネックです。

上記のSubプロシージャの場合、
　Presentations/Presentation
　　└ Slides/Slide
　　　　└ Shapes/Shape
　　　　　　└ Table
　　　　　　　　└ Columns/Column
という階層構造を理解する必要があります。

表を含む図形を取得する
　Presentations/Presentation
　　└ Slides/Slide
　　　　└ Shapes/Shape
の部分は、PowerPoint VBAではお馴染みの階層構造です。

Shapeオブジェクトが持つTableプロパティで、表を表すTableオブジェクトを取得して、
　With ActivePresentation.Slides(1).Shapes(2)
　　　.Table.Columns(1).Delete

Tableオブジェクトが持つColumnsプロパティで、表内の全列を表すColumnsコレクションを取得して、
　　　.Table.Columns(1).Delete

Columnsコレクションの既定メソッドであるItemを使って、1列目の列を表すColumnオブジェクトを取得しています。
　　　.Table.Columns(1).Delete

先頭スライドに存在する表の最終列を削除するサンプル

以下のようなSubプロシージャで、アクティブなプレゼンテーションの先頭スライドに存在する表の最終列を削除できます。

最終列を取得するために先ほどの1列目のときよりもコードは複雑になっています。
　　　With .Table.Columns
　　　　.Item(.Count).Delete

最終更新日時：2019-11-20 03:33