Linien loeschen
11.02.2003 08:39:17
Sven
Wie kann ich alle Linien in meinem Sheet loeschen?
Bei den Shapes hab ich es so gemacht, das funzt auch super, nur mit Linien geht's nicht.
Fuer Shapes:
Dim SH As Shape
For Each SH In Worksheets(2).Shapes
If SH.Type = 1 Then SH.Delete
Next SH
Was muss ich aendern, dass es auch fuer Linien funktioniert oder am besten fuer alle Sachen, die ich auf ein Sheet zeichne.
Gruß Sven
Anzeige