［PowerPoint］：シェイプの名前をメッセージボックスで表示する

目標

PowerPointのマクロで特定のシェイプを操作したい

問題点

シェイプの名前を確認する方法が見つからない

対処

シェイプの名前をメッセージボックスで表示する

' シェイプ（図形とかテキストボックス）の名前確認用
Sub SelectShapeName()

    ' メッセージボックス出すよ
    ' 選択しているものの名前を
    Call MsgBox(ActiveWindow.Selection.ShapeRange.Name)
 
End Sub

パワーポイントでマクロを組もうとしたけど
特定のシェイプを指定する方法が分からなかった件　（名前が分からないから

名前を確認する方法考えた(｀･ω･´)