VBA-Excel alle Linien markieren und löschen

hallo kollega,

wie kann ich mit einem Befehl(VBA-Excel) alle Shapes (Autoformen wie Linien, Kreis usw.) markieren und löschen.

Im voraus vielen Dank

Mikey

hi

Sub deleteall()
Dim m_shape As Shape

For Each m_shape In ActiveWorkbook.ActiveSheet.Shapes
m_shape.Delete
Next
End Sub

gruss, Giuseppe

danke für die schnelle Beantwortung

schönen Gruß aus Frankfurt

mikey

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]