|
INA さん、鼻毛カッターさん、こんにちは。
解答がついているようですが、一応作成しました。
仮に
セルG5〜K5に"("、"有"、"・"、"無"、")"と
体裁よくセル幅を調整して入力されているとします。
○は、セルの大きさに合わせるようにしました。
オプションボタンは、ふたつ(OptionButton1とOptionButton2)。
当該シートモジュールに
'=====================================================
Dim shp1 As Shape
Dim shp2 As Shape
'==================================
Private Sub OptionButton1_Click()
Call shp_delete
Set shp1 = mk_○(Range("h5"))
End Sub
'==================================
Private Sub OptionButton2_Click()
Call shp_delete
Set shp2 = mk_○(Range("j5"))
End Sub
'==================================
Sub shp_delete()
On Error Resume Next
If Not shp1 Is Nothing Then
shp1.Delete
Set shp1 = Nothing
End If
If Not shp2 Is Nothing Then
shp2.Delete
Set shp2 = Nothing
End If
On Error GoTo 0
End Sub
'===================================
Function mk_○(rng As Range) As Shape
Set mk_○ = rng.Parent.Shapes.AddShape(msoShapeOval, rng.Left, rng.Top, rng.Width, rng.Height)
With mk_○
.Fill.Visible = msoFalse
End With
End Function
でどうでしょうか?
|
|