以编程方式从形状中删除宏

Question

我有几个随工作表内容动态变化的“按钮”。我只需要弄清楚1行代码，使其能工作正常（3号线）：

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