alle schaltfllächen löschen
28.03.2021 13:01:13
Ulrich
ich habe eine Frage.
Mit folgendem Code lösche ich Schaltflächen .
Wie müsste ich diesen code ändern das alle Schaltflächen in der ganzen Arbeitsmappe gelöscht werden?
Danke für eure Hilfe
Gruß Ulli
Sub Clear_ButtonsActiveSheet()
Dim I As Long
Dim xOLE As Object
On Error Resume Next
ActiveSheet.Buttons.Delete
For Each xOLE In ActiveSheet.OLEObjects
If TypeName(xOLE.Object) = "CommandButton" Then
xOLE.Delete
End If
Next
End Sub
Anzeige