wie kann ich alle Linien und Pfeile auf meinem Arbeitsblatt löschen. Habe in der Recherche folgendes gefunden:
activesheet.shapes.selectall
selection.delete
das löscht aber auch meine command-buttons und das will ich nicht.
Viele Grüße
Emil
Sub Linien_wech()
Dim Sh As Shape
For Each Sh In ActiveSheet.Shapes
If Sh.Type = 9 And Sh.AutoShapeType = -2 Then Sh.Delete
Next
End Sub
Sub neu()
For Each cb In ActiveSheet.Shapes
If cb.Type = 9 Then
cb.Delete
End If
Next
End Sub