エクセルVBAの記述方法の質問です。

質問

エクセルです。12個のセルの文字列をオートシェープの吹き出しに順に表示させるマクロをつくりました。

Sub tenki2()
Dim i As Integer
Dim a As String
For i = 1 To 12
a = Cells(i, 2).Value

ActiveSheet.Shapes("AutoShape 4").Select
Selection.Characters.Text = a

Application.Wait Now + TimeValue("00:00:05")
Next i

End Sub

これで思った通り表示されるのですが、できればオートシェープをセレクトしないようにしたいのです。
（シートを保護するため）
それで

ActiveSheet.Shapes("AutoShape 4").Select
Selection.Characters.Text = a

のところを

ActiveSheet.Shapes("AutoShape 4").Characters.Text = a

と変えたのですが、「オブジェクトはこのプロパティまたはメソッドをサポートしていません」という実行時エラーがでてしまいました。書き方のどこがまずかったのでしょうか？ご教示いただければ幸いです。

回答No.2

pureh · ベストアンサー

> ActiveSheet.Shapes("AutoShape 4").Characters.Text = a
> と書くと保護の有無にかかわらず実行時エラーなのです。

ActiveSheet.Shapes("AutoShape 4").TextFrame.Characters.Text = a

お礼

ありがとうございました！
うまく行きました。
マクロの自動記録では絶対わからない書き方ですね。
助かりました。

回答No.1

taknt

シートを保護させたから エラーになったんでしょう。

保護したまま、ＶＢＡのほうで、解除して、再度
保護するようにしてみれば？

'保護の解除
ActiveSheet.Unprotect

ActiveSheet.Shapes("AutoShape 4").Select
Selection.Characters.Text = a

'シートの保護
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

補足

> シートを保護させたから エラーになったんでしょう。

ActiveSheet.Shapes("AutoShape 4").Select と書けば保護時にはエラーになるし、解除すればもちろん大丈夫です。それはわかるのです。
ActiveSheet.Shapes("AutoShape 4").Characters.Text = a
と書くと保護の有無にかかわらず実行時エラーなのです。
だから、この書き方のどこがまずいのか知りたいのです。
よろしくお願いします。