|
こんばんわ。
組み合わせてはみたのですが、表示・非表示がうまくいきません。間違っている点がございましたら、ご指摘お願いいたします。
Private Sub OptionButton1_Click()
Dim objOval As Shape 'Shape
'Shapeの有無チェック
On Error Resume Next
Set objOval = ActiveSheet.Shapes("あああ")
On Error GoTo 0
'Shapeが無ければ作成
If objOval Is Nothing Then
Set objOval = ActiveSheet.Shapes.AddShape(msoShapeOval, 200, 200, 10, 10)
objOval.Fill.Visible = msoFalse
objOval.Name = "あああ"
End If
'表示/非表示制御
objOval.Visible = IIf(Me.OptionButton1.Value, msoTrue, msoFalse)
'オブジェクト開放
Set objOval = Nothing
End Sub
Private Sub OptionButton2_Click()
Dim objOval As Shape 'Shape
'Shapeの有無チェック
On Error Resume Next
Set objOval = ActiveSheet.Shapes("いいい")
On Error GoTo 0
'Shapeが無ければ作成
If objOval Is Nothing Then
Set objOval = ActiveSheet.Shapes.AddShape(msoShapeOval, 100, 100, 10, 10)
objOval.Fill.Visible = msoFalse
objOval.Name = "いいい"
End If
'表示/非表示制御
objOval.Visible = IIf(Me.OptionButton2.Value, msoTrue, msoFalse)
'オブジェクト開放
Set objOval = Nothing
End Sub
|
|