図形からマクロをプログラムで削除する

Question

シートの内容に応じて動的に変化する複数の「ボタン」があります。私はちょうど（3行目）、それが正常に動作し取得するコードの1行を把握する必要があります。

Public Sub ClearMacro(shapename As String) 
    On Error Resume Next 
    ActiveSheet.Shapes(shapename).OnAction = Nothing 
End Sub 

私は完全な形状からマクロを削除しますが、形状を維持したいです。この仕事をするために私が別にできることは何ですか？

Answer 1

オブジェクトにSetとNothingを使用してください。 OnActionは文字列値を受け取り、代わりに.OnAction = ""を使用します。

Public Sub ClearMacro(shapename As String) 
    On Error Resume Next 
    ActiveSheet.Shapes(shapename).OnAction = "" 
End Sub