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

目標
PowerPointのマクロで特定のシェイプを操作したい
問題点
シェイプの名前を確認する方法が見つからない
対処
シェイプの名前をメッセージボックスで表示する
' シェイプ(図形とかテキストボックス)の名前確認用
Sub SelectShapeName()

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


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


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