PowerPoint VBAで図形の数を数える方法｜初心者でもできる簡単ステップ

2025.10.072026.09.04

PowerPointでプレゼンテーションを作成していると、スライド上の図形の数を把握したい場面がありますよね。例えば、スライドに挿入した図形の数を数えて、特定の操作を自動化したいときなどです。そんなときに便利なのが、PowerPointのVBA（Visual Basic for Applications）を使った方法です。

この記事では、初心者の方でもわかりやすいように、PowerPoint VBAで図形の数を数える方法をステップ・バイ・ステップで解説します。難しい専門用語は使わず、実際の操作画面をイメージしながら進めていきますので、安心してくださいね。

PowerPoint VBAとは？
1. VBAとは？
2. VBAを使うメリット
図形の数を数えるVBAコード
1. 基本のコード
2. コードの解説
図形の種類別にカウントする方法
1. 種類別カウントのコード
2. コードの解説
よくある質問や疑問
1. Q1: 図形の数を数えるだけでなく、特定の図形を操作したい場合はどうすればいいですか？
2. Q2: VBAを使うのは初めてで不安です。何から始めればいいですか？
まとめ

PowerPoint VBAとは？

PowerPointのイメージ

まず、VBAとは何かをご紹介します。

VBAとは？

VBA（Visual Basic for Applications）は、Microsoft Office製品に組み込まれているプログラミング言語です。これを使うことで、日々の作業を自動化したり、複雑な操作を簡単に実行したりすることができます。

PowerPointでもVBAを活用することで、スライドの操作を効率化したり、繰り返し作業を自動化したりすることが可能です。

VBAを使うメリット

作業の効率化同じ操作を何度も繰り返す必要がなくなります。
ミスの削減手作業による入力ミスを防げます。
時間の節約複雑な作業もボタン一つで完了します。

図形の数を数えるVBAコード

それでは、実際にVBAを使って、スライド上の図形の数を数える方法を見ていきましょう。

基本のコード

以下のコードをVBAエディタに入力してみてください。

vba

Sub 図形の数を数える()

    Dim sld As slide

    Dim shp As shape

    Dim 図形の数 As Integer

    図形の数 = 0

    For Each sld In ActivePresentation.Slides

        For Each shp In sld.Shapes

            図形の数 = 図形の数 + 1

        Next shp

    Next sld

    MsgBox "スライド内の図形の数は " & 図形の数 & " です。"

End Sub

このコードは、現在開いているプレゼンテーションのすべてのスライドを順番にチェックし、各スライド内の図形を数えて、最後にその合計をメッセージボックスで表示します。

コードの解説

`Dim sld As slide`スライドを表す変数を宣言します。
`Dim shp As shape`図形を表す変数を宣言します。
`Dim 図形の数 As Integer`図形の数をカウントするための変数を宣言します。
`For Each sld In ActivePresentation.Slides`現在のプレゼンテーションのすべてのスライドを順番に処理します。
`For Each shp In sld.Shapes`各スライド内のすべての図形を順番に処理します。
`図形の数 = 図形の数 + 1`図形が見つかるたびにカウントを1増やします。
`MsgBox “スライド内の図形の数は ” & 図形の数 & ” です。”`最終的なカウント結果をメッセージボックスで表示します。

図形の種類別にカウントする方法

次に、図形の種類別にカウントする方法をご紹介します。例えば、テキストボックス、画像、図形など、種類ごとに数を把握したい場合に便利です。

種類別カウントのコード

vba

Sub 図形の種類別カウント()

    Dim sld As slide

    Dim shp As shape

    Dim テキストボックス As Integer

    Dim 画像 As Integer

    Dim 図形 As Integer

    テキストボックス = 0

    画像 = 0

    図形 = 0

    For Each sld In ActivePresentation.Slides

        For Each shp In sld.Shapes

            Select Case shp.Type

                Case msoTextBox

                    テキストボックス = テキストボックス + 1

                Case msoPicture

                    画像 = 画像 + 1

                Case Else

                    図形 = 図形 + 1

            End Select

        Next shp

    Next sld

    MsgBox "テキストボックスの数: " & テキストボックス & vbCrLf & _

           "画像の数: " & 画像 & vbCrLf & _

           "その他の図形の数: " & 図形

End Sub