階層が深すぎるんだよねぇ・・・
と、ちょいと文句を言ってみたりするが、要は覚えられないだけなので、メモっておく

Thisworkbook.Worksheets("Sheet1").Shapes("Rectangle 1").TextFrame.Characters.Text = "ほげほげ"