エクセルシートのテキストボックスに文字を入力するには？ (ID:114921)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 VBでエクセルにテキストボックスを追加し、 それに文字を入力させたいのですが、 以下のようにやってみましたが、”このオブジェクトはこのプロパティ、 またはメソッドをサポートしてません"と出ました。 これはどのような構文を入力したらよろしいのでしょうか？ よろしくお願いします。 Dim xlSheet As Excel.Worksheet Dim myText as Excel.Shape Set myText = xlSheet.Shapes.AddTextbox( _ Orientation:=msoTextOrientationHorizontal, _ Left:=46.5, Top:=5, Width:=100#, Height:=30) myText.Select myText.Text = "TEST" ←ここでエラーが発生。 Selection.Text = "TEST"とすると 一回目は出来ますが 2回目以降、Selectionが有効になっているため 出来ませんでした。