Linie mit VBA-Makro löschen
09.01.2004 12:32:03
Heiko Reichle
Wie kann ich alle "Linien" (Zeichnungsobjekte) aus einem Tabellenblatt löschen?
Bisheriger Code:
Sub Linien_loeschen()
anzahl = ActiveSheet.Shapes.Count
i = 0
Do
i = i + 1
art = ActiveSheet.Shapes.Item(i).Type
If art = 9 Then '9 = Linie
ActiveSheet.Shapes.Item(i).Select
Selection.Delete
End If
Loop Until (i = anzahl)
End Sub
Das Makro löscht tatsächlich einige Linien. Dann hält es mit einer Fehlermeldung an - Laufzeitfehler...
Wer kann mir dabei helfen?
Für Anregungen sage ich jetzt schon D A N K E !
Heiko Reichle