【VBA】オートシェイプにテキストを挿入する

すでにあるオートシェイプにテキストを入れる方法。
なかなか見つからなかったので自分用備忘録。

' 変数
Dim strShapeName as String
Dim strText as String

' 図形の名前（決めておいてください）
strShapeName = "SampleShp1"
' テキスト
strText = "Sample Text"

' 本処理
ActiveSheet.Shapes.Range(Array(strShapeName)).TextFrame2.TextRange.Characters.Text = strText