Linien loeschen

Forumthread: Linien loeschen
4 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Linien loeschen

Linien loeschen

01.08.2003 11:07:34

streuner

Hi!
Erstelle dynamisch eine Linie, speicher ab und möchte diese Linie dann löschen. Geht beim ersten mal gut, da ich ja den Namen weiß, wenn ich mit dem Makro aufzeichne!! Danach, weiß ich aber nicht mehr, wie ich diese (einzige) Linie ansprechen kann (hab nur diesen Befehl "ActiveSheet.Shapes("Line 60").Select
Selection.Delete").
Erstelle ja jedesmal aufs neue eine Linie (dynamisch)!
Ne Idee?
MFG Streuner

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Linien loeschen

01.08.2003 11:19:08

Ivan
Thanx...

01.08.2003 11:26:16

streuner
Noch ein Tipp

01.08.2003 12:37:38

streuner
AW: bitte schön dein tip

01.08.2003 16:35:20

Ivan

AW: Linien loeschen

01.08.2003 11:19:08

Ivan

Hallo Stefan,
versuchs mal damit:
hi Streuner


Sub Linien_löschen()
ActiveSheet.DrawingObjects.Delete
End Sub

gruss
ivan

Thanx...

01.08.2003 11:26:16

streuner

Klappt gut! Löscht aber auch andere Dinge, wie ein Chart und so!
Ist aber nicht weiter schlimm!
Dank Dir nochmal!
MFG Streuner
P.S.: Hast du noch ne Antwort vielleicht auf meine Frage weiter oben?

Noch ein Tipp

01.08.2003 12:37:38

streuner

Hey Du!
Kennst Du vielleicht noch ne Möglichkeit die Linie direkt anzusprechen und zu loeschen,
da bei mir auch sämtliche Grafiken rausgelöscht werden und ich sie dann
jedesmal neu reinladen muss!!
Dank Dir!
MFG Streuner

AW: bitte schön dein tip

01.08.2003 16:35:20

Ivan

hi Streuner
Sorry hatte einen Serverausfall!!
aber dafür bekommst du jetzt deine lösung.
Sub LinienWeg()
ActiveSheet.Shapes.Range(Array("Line 1", "Line 2")).Select 'je nach bedarf erweitern
Selection.Delete
End Sub
gruss
ivan