/ / ActiveX-Kontrollkästchen in Auswahl löschen - Excel, Vba

Löschen Sie die ActiveX-Kontrollkästchen in der Auswahl - Excel, VBA

Ich habe versucht, ein Makro zu schreiben, das gelöscht werden sollteAlle ActiveX-Kontrollkästchen innerhalb des ausgewählten Bereichs. Ich habe diesen Code geschrieben, aber er gibt immer den Fehler "Objekt unterstützt diese Eigenschaft oder Methode nicht" zurück.

Dim cbx As OLEObject
Dim rng As Range
Set rng = selection
For Each cbx In ActiveSheet.OLEObjects
If Not Intersect(rng, cbx.Object.TopLeftCell) Is Nothing Then cbx.Delete
Next

Antworten:

1 für die Antwort № 1
If Not Intersect(rng, cbx.TopLeftCell) Is Nothing Then cbx.Delete

1 für die Antwort № 2

Dadurch werden alle ActiveX-Kontrollkästchen innerhalb einer Auswahl gelöscht:

Sub DeleteActiveXCheckboxes()

Dim Shape As Shape

For Each Shape In ActiveSheet.Shapes
If Shape.Type = 12 Then
If Not Intersect(Shape.TopLeftCell, Selection) Is Nothing Then
Shape.Delete
End If
End If
Next Shape

End Sub