オプションボタンで○を描いたり消したり

質問

いつもありがとうございます。
今度は下記内容で悩んでいます。
どなたか、助けて下さい。

（したい事）
オプションボタン1を押す
セルＪ58に○をいっぱいにオートシェイプで描く
同時にセルJ62のオートシェイプがあれば消す
オプションボタン2を押す
セルＪ62に○をいっぱいにオートシェイプで描く
同時にセルJ58のオートシェイプがあれば消す

これと同じ作業ができるシートを10枚作りたいのですが・・・
各シートはリンクせず、シート内にそれぞれ２つのオプションボタンで対応したいのです。

とりあえず、下記コードを作ったのですが、他のPCですとセルからづれてしまうので
セル内に収まるような最大の○を付したいので、どなたかご教授お願い致します。

Sub (1)オプション1_Click()

ActiveSheet.Unprotect
ActiveSheet.Shapes.AddShape(msoShapeOval, 185, 628, 45.5, 14.5).Select
Selection.ShapeRange.Line.Weight = 1
Selection.ShapeRange.Fill.Visible = msoFalse

With ActiveSheet
For Each ob In .DrawingObjects
If Not Intersect(ob.TopLeftCell, .Range("J62")) Is Nothing Then
ob.Delete
End If
Next
End With

Range("J58").Select
ActiveSheet.Protect

End Sub

回答No.1

DreamyCat · ベストアンサー

わかりやすいように書きましたが
実際は事前に変数化して使うと良いかと思います。
また複数シートを使うときなどのことも考えると
rangeのところはその前にシート名をつけておくなどしてください。
"C5"を指定したところは書き換えてください。

ActiveSheet.Shapes.AddShape(msoShapeOval, Range("C5").Left, Range("C5").Top, Range("C5").Width, Range("C5").Height).Select

また、その都度描いたり消したりするのはよくありません。
最初の１回だけ上記のようなコードか手作業で作成して
その後はvisibleプロパティで表示・非表示を切り替えるのが良いでしょう。

お礼

早々のご回答、ありがとうございます。
ばっちり動きました。
ありがとうございました！

補足

VBA素人でして、仰っておられる内容が理解できません。
お手数ですが、詳しく教えて下さい。

・「描いたり消したりするのはよくありません」とは、何故ですか？
・「visibleプロパティ」とは具体的にどのような方法で、どういった利点がありますか？

回答No.2

DreamyCat

<<補足です>>
・「描いたり消したりするのはよくありません」とは、何故ですか？
　　　ActiveSheetやSelectionを使うのなら別にかまわないといえば構わないのですが、
　　　今後、高速で図を処理するときなどに困るからです。　　　

・「visibleプロパティ」とは具体的にどのような方法で、どういった利点がありますか？
　　その英語のままで、表示・非表示を切り替えるものです。
　　　sheet1.shapes(1).visible=true 'false　
　　　のようにして使います。
　そこで、下記のようにしておいて呼び出せば、呼び出すたびに表示・非表示が切り替わりますのでプログラムを書く面倒がなくなります。
sheet1.shapes(1).visible=not sheet1.shapes(1).visible

お礼

度々の質問にも関わらず、ご丁寧に回答いただき
ありがとうございます。
しばらくPCから離れた環境にいた為、お礼が遅くなり失礼しました。
勉強になりました。
より高度なコードが書けるようがんばります！