VBA 図形のテキスト取得

マクロを実行する際に、図形にマクロを登録しているのですが
その図形に記入されているテキストを、選択しているセルに書き出すということをしたいです。

例
マクロが登録されている図形をクリック。
その図形に　あいう　と記入されていたら
選択しているA1セルに　あいう　と入力される

といった感じです。
ご教授のほど、よろしくお願いします。

No.1 ベストアンサー 回答者： よろずやkinchan 回答日時： 2019/12/16 19:38

Sub 図形_Click()

ActiveCell.Value = ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text
End Sub

試してないけど。

この回答へのお礼

ありがとございます。できました。
助かりました。ありがとうございました。

お礼日時：2019/12/16 20:31