Sub MyDrawingObjectCaption()
  Rem *----*----*    *----*----*    *----*----*    *----*----*
  Rem オートシェイプ‐テキスト取得処理
  Rem 言語：Excel VBA
  Rem 機能：オートシェイプのテキストを取得し表示する。
  Rem 注記：オートシェイプの[マクロの登録...]に設定する。
  '
  ActiveSheet.Shapes(Application.Caller).DrawingObject.Caption
End Sub ' MyDrawingObjectCaption *----*----*    *----*----*    *----*----*    *----*----*