Makro aus Form programmgesteuert entfernen

Question

Ich habe mehrere "Buttons", die dynamisch mit dem Inhalt des Blattes ändern. Ich brauche nur 1 Zeile Code, um herauszufinden, um es richtig (Linie 3) zu erhalten arbeiten: die Form

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

Ich möchte vollständig das Makro aus der Form entfernen, aber halten. Was kann ich anders machen, um das zu schaffen?

Answer 1

Verwenden Sie Set und Nothing auf Objekte. OnAction akzeptiert einen Zeichenfolgenwert. Verwenden Sie stattdessen .OnAction = "".

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