Excelのオートシェイプのテキストを編集する

VBA

ExcelVBAでセルを使用したプログラムは書いたことあるけど、オートシェイプは使用したことないな。
オートシェイプのテキストってどうやって取得するんだろ？ってふと思い、調べてみるととても簡単だった。。
こんな感じでさくっとできることが分かってすっきりした！！

Private Sub sample()
  Sheet1.Shapes("text1").TextFrame.Characters.Text = "test"
  MsgBox Sheet1.Shapes("text1").TextFrame.Characters.Text
End Sub