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

Question

我有几个＆＃34;按钮＆＃34;随着工作表的内容动态变化。我只需要弄清楚1行代码就可以使它正常工作（第3行）：

var coordinates = [] ;
var newCoords = [long, lat];
coordinates.push( newCoords ) ;

我想从形状中完全删除宏，但要保持形状。我可以采取哪些不同的方式来完成这项工作？

Answer 1

在对象上使用Set和Nothing。 OnAction接受一个字符串值，改为使用.OnAction =“”。

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