Objekte aus Tabellenblatt löschen
Martin
wie kann ich von Websiten mitkopierte Objekte (Schaltflächen und TextBoxen) per VBA löschen. Mit folgendem Makro geht es nicht:
Sub Cleaner()
Dim x As Shape
For Each x In ActiveSheet.Shapes
If x.Type = 12 Then x.Delete
Next
End Sub
https://www.herber.de/bbs/user/80774.xls
(Im Entwurfsmodus sind auch die TextBoxen sichtbar, deren Visible-Eigenschaft auf False gesetzt ist).
Für Vorschläge bin ich sehr dankbar.
Viele Grüße
Martin
Anzeige
