初心者でもわかる！PowerPoint VBAで図形の種類を判別する方法

PowerPointのスライドに配置した図形をVBAで操作したいけど、「この図形は何だろう？」と悩んだことはありませんか？例えば、テキストボックスだけを操作したい、画像だけを非表示にしたい、などの場面で、図形の種類を判別する必要が出てきます。そんなときに便利なのが、Shape.Typeプロパティです。

今回は、Shape.Typeプロパティを使って、図形の種類を簡単に判別する方法をご紹介します。初心者の方でも安心して理解できるように、実際の例を交えてわかりやすく解説しますね。

Shape.Typeプロパティとは？
よく使うMsoShapeTypeの値一覧
実際に使ってみよう！図形の種類を判別するVBAコード
よくある質問や疑問
今すぐ解決したい！どうしたらいい？
まとめ

Shape.Typeプロパティとは？

PowerPointのイメージ

まず、Shape.Typeプロパティとは、スライド上の図形がどの種類に該当するかを判定するためのものです。例えば、図形がテキストボックスか、画像か、グラフか、などを判別できます。

このプロパティは、MsoShapeTypeという定数のいずれかの値を返します。例えば、msoTextBox（値: 17）はテキストボックスを意味し、msoPicture（値: 13）は画像を意味します。

よく使うMsoShapeTypeの値一覧

以下に、よく使われるMsoShapeTypeの値とその意味をまとめました。

定数名	値	意味
msoAutoShape	1	オートシェイプ（四角形、円など）
msoPicture	13	画像
msoTextBox	17	テキストボックス
msoTable	19	表
msoDiagram	21	図表（SmartArt）

実際に使ってみよう！図形の種類を判別するVBAコード

次に、実際にVBAで図形の種類を判別するコードをご紹介します。

Sub 図形の種類を判別()

    Dim shp As Shape

    For Each shp In ActivePresentation.Slides(1).Shapes

        Select Case shp.Type

            Case msoAutoShape

                Debug.Print shp.Name & " はオートシェイプです。"

            Case msoPicture

                Debug.Print shp.Name & " は画像です。"

            Case msoTextBox

                Debug.Print shp.Name & " はテキストボックスです。"

            Case msoTable

                Debug.Print shp.Name & " は表です。"

            Case msoDiagram

                Debug.Print shp.Name & " は図表です。"

            Case Else

                Debug.Print shp.Name & " はその他の図形です。"

        End Select

    Next shp

End Sub

このコードは、スライド1にあるすべての図形について、その種類を判別してイミディエイトウィンドウに表示します。例えば、「Rectangle 1 はオートシェイプです。」といった具合です。

よくある質問や疑問

Q1: Shape.TypeとShape.AutoShapeTypeの違いは何ですか？

Shape.Typeは図形の種類を判別するプロパティで、Shape.AutoShapeTypeはオートシェイプの具体的な形状を判別するプロパティです。例えば、Shape.TypeがmsoAutoShapeの場合、Shape.AutoShapeTypeを使ってそのオートシェイプが矩形、円形、三角形などのどれであるかを判別できます。