エクセルVBAでPowerPointスライド上のシェイプ一覧を取得する

photo credit: Jewelry making supplies findings. Natural wood for pendants, earrings, necklaces, rings, bracelets, brooches, charms, keychains, magnets … via photopin (license)

みなさん、こんにちは！
タカハシ(@ntakahashi0505)です。

エクセルVBAでPowerPointを操作する方法についてシリーズでお伝えしています。

前回はコチラの記事でした。

エクセルVBAでPowerPointのプレゼンテーションを開く方法・スライドを取得する方法

エクセルVBAでPowerPointを操作する方法をシリーズでお伝えしています。今回は特定のPowerPointプレゼンテーションファイルを開くプログラムおよびスライドを取得するプログラムです。

エクセルVBAでPowerPointプレゼンテーションを開き、スライドを取得するというところまでお伝えしました。

PowerPointのオブジェクト構造はアプリケーション→プレゼンテーション→スライドという階層構造になっているのですが、今回はスライドの配下にあるシェイプについてお伝えしていきたいと思います。

エクセルVBAでPowerPointスライドのシェイプ一覧を取得する方法です。

では、行ってみましょう。

シェイプとは何か
PowerPointスライド上のシェイプ名を書き出すプログラム
1. Shapesオブジェクト
2. Shapeオブジェクトの名前を取得する
まとめ
連載目次：エクセルVBAでグラフとPowerPointを操作する

シェイプとは何か

PowerPointを操作すると言ったら、テキストボックスの中のテキストを入力したり、円や四角形のオブジェクトを移動したりコピーしたり、エクセルからグラフをコピーして貼り付けしたり、といった操作になります。

PowerPointではそれらのテキストボックス、円や四角形のオブジェクト、グラフなどスライドに配置するアイテムは全て「シェイプ」と言います。

英語ではshapeと書きまして、「形、形状、かっこう」といった意味ですが、PowerPointにおけるシェイプとはMicrosoftによると

PowerPoint プレゼンテーションはスライドの集合で構成されていますが、一般的に PowerPoint スライドは 1 つまたは複数の Shape オブジェクトで構成されています。ピクチャ、タイトル、テキスト、OLE オブジェクト、オートシェイプなど、スライドに含まれるアイテムはすべて Shape オブジェクトです。

と説明されています。

スライド上の図形を使用する

PowerPointスライド上のシェイプ名を書き出すプログラム

では、そんなシェイプを操作していきたいと思いますが、こちらのプログラムを実行してみましょう。

Sub PowerPointシェイプのNameを出力する()

Dim ppApp As New PowerPoint.Application
ppApp.Visible = True

Dim ppPrs As PowerPoint.Presentation
Set ppPrs = ppApp.Presentations.Open(ThisWorkbook.Path & "\ひな形.pptx")

Dim ppSld As PowerPoint.Slide 'スライドオブジェクト
Set ppSld = ppPrs.Slides(1) '1ページ目のスライドをセット

Dim shp As Object
For Each shp In ppSld.Shapes

    Debug.Print shp.Name

Next shp

ppApp.Quit
Set ppApp = Nothing

End Sub

10行目までは前回のプログラムと同様です。