以編程方式從形狀中刪除宏

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