質問: 0 End Select End Sub
回答: 標準モジュールにコピーしてsampleを実行してください。 または図形のマクロの登録を「test」にしてください。 その後はクリックで表示・非表示を繰り返すと思います。 Sub sample() Dim sh As Shape For Each sh In ActiveSheet.Shapes sh.OnAction = "test" Next End Sub Sub test() With ActiveSheet.Shapes(Application.Caller) .SoftEdge.Radius = IIf(.SoftEdge.Radius = 0, 100, 0) End With End Sub