PowerPoint VBAでShapeのインデックスを取得する方法｜初心者でも簡単に理解できる解説

2025.10.082026.01.27

PowerPointのVBAを使って、スライドに挿入されたオブジェクト（シェイプ）のインデックスを取得したいと考えたことはありませんか？この記事では、PowerPoint VBA初心者の方にもわかりやすく、Shapeのインデックスを取得する方法を説明します。難しく感じるかもしれませんが、段階的に解説していきますので安心してください。

PowerPoint VBAの基本とShapeオブジェクトとは
1. Shapeのインデックスを取得する理由
PowerPoint VBAでShapeのインデックスを取得する方法
よくある質問や疑問
1. Shapeのインデックスがわからない場合、どうすればいいですか？
2. 特定のShapeだけのインデックスを取得したい場合はどうすればよいですか？
まとめ

PowerPoint VBAの基本とShapeオブジェクトとは

PowerPointのイメージ

まず最初に、VBA（Visual Basic for Applications）を使ってPowerPointを操作する基本を理解しましょう。VBAは、Microsoft Office製品で使えるプログラミング言語で、これを使うことで、スライドの内容や動作を自動化できます。

PowerPointで使う「Shape」とは、スライドに追加した図形やテキストボックス、画像など、すべてのオブジェクトを指します。これらのオブジェクトは「Shape」としてVBAで管理され、操作することができます。

Shapeのインデックスを取得する理由

「インデックス」というのは、オブジェクトがリストや配列の中で何番目に位置しているかを示す番号のことです。VBAでShapeのインデックスを取得することは、複数の図形やオブジェクトを扱うときに便利です。たとえば、特定のオブジェクトを自動で選択したり、変更したりする際にインデックス番号を使って対象を指定します。

このサイトをチップで応援

￥100ありがとう￥300助かった！￥1,500神記事！

PowerPoint VBAでShapeのインデックスを取得する方法

では、実際にPowerPoint VBAでShapeのインデックスを取得する方法を見ていきましょう。以下のコードをVBAエディタに入力して実行することで、スライド上のShapeのインデックスを取得できます。

VBAエディタを開く

まずはPowerPointを開き、次に「Alt + F11」キーを押してVBAエディタを開きます。

新しいモジュールを追加

VBAエディタが開いたら、「挿入」→「モジュール」をクリックして新しいモジュールを作成します。

以下のコードを入力

次に、以下のVBAコードを入力します。

vba

Sub GetShapeIndex()

    Dim slide As slide

    Dim shape As shape

    Dim index As Integer
    ' スライド1を選択

    Set slide = ActivePresentation.Slides(1)

' スライドに含まれるすべてのShapeをチェック For Each shape In slide.Shapes ' Shapeのインデックスを表示 index = shape.ZOrderPosition MsgBox "Shape: " & shape.Name & "のインデックスは " & index & " です。" Next shape End Sub

コードを実行

コードを入力したら、実行ボタンを押してVBAコードを実行します。スライドにあるShapeのインデックス番号が順番に表示されます。

よくある質問や疑問

Shapeのインデックスがわからない場合、どうすればいいですか？

もしShapeのインデックスが取得できない場合、考えられる原因として以下の点が挙げられます

ここがポイント！

コードを入力したスライドにShapeがない場合。
VBAコードが正しくない場合。

最初に確認すべきは、スライドに少なくとも1つのShapeが追加されていることです。また、コードを確認して誤りがないか見直してみてください。

特定のShapeだけのインデックスを取得したい場合はどうすればよいですか？

特定のShapeだけのインデックスを取得したい場合、そのShapeの名前や種類を指定することができます。例えば、名前が「テキストボックス1」のShapeだけを対象にするには、以下のように記述します。

vba

Sub GetSpecificShapeIndex()

    Dim slide As slide

    Dim shape As shape

    Dim index As Integer
    ' スライド1を選択

    Set slide = ActivePresentation.Slides(1)

' 名前が「テキストボックス1」のShapeを探す For Each shape In slide.Shapes If shape.Name = "テキストボックス1" Then index = shape.ZOrderPosition MsgBox "「テキストボックス1」のインデックスは " & index & " です。" End If Next shape End Sub

これで、名前が「テキストボックス1」のShapeだけを対象にインデックスを取得できます。