Excel VBA 図形(オートシェイプ)のテキストを取得する方法

図形のテキストを取得する方法

やりたい事

図形のテキストを取得します。以下の図であればいるかを取得します。

図形のテキストを取得するサンプルコード

テキストを設定する際と一緒でTextFrameのCharactersのTextですね(*^^*)

Sub getShapeText()
    Dim txt As String
    ActiveSheet.Shapes.AddShape(msoShapeRectangle, 10, 30, 100, 100).Name = "四角"
    ActiveSheet.Shapes("四角").TextFrame.Characters.text = "いるか"
    
    txt = ActiveSheet.Shapes("四角").TextFrame.Characters.text
    MsgBox txt
End Sub