VBA 図形を塗りつぶし無しにするには・・・

VBAビギナーです。設定済みのラジオボタンをクリックしたら、唯一の図形を塗りつぶし無しにしたいと考えています。下記サンプルコードを実行しましたが、実行時エラー「指定したコレクションに対するインデックスが境界を超えています」となります。
希望通りにするためにはどのようにしたらよいかご教示いただければ助かります。
ほかの記述があればご提示いただきたくよろしくお願いいたします。


Sub オプション4_Click()
Dim shp As Shape
Set shp = ActiveSheet.Shapes(1)
shp.Fill.Visible = msoFalse
End Sub

No.1 ベストアンサー 回答者： Qchan1962 回答日時： 2021/01/19 10:22

こんにちは、

コード自体に問題があるように思いませんが、
＞唯一の図形
実際にShapes(1)、インデックス1でしょうか？名前で指定すると、、とか思いますが、
唯一であれば、自動記録で処理を記録して確かめるのが早い解決方法かと思いますよ。

この回答へのお礼

早速の回答ありがとうございます。
なるほど、自動記録で確かめるという方法がありますね。
やってみます！　ありがとうございました！！！

お礼日時：2021/01/19 10:59