Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Linien löschen über VBA

Linien löschen über VBA
22.06.2005 08:05:14
Frank
Guten Morgen,
könnte mir jemand bitte helfen?
diese beiden Linien befinden sich in einem Makro (Schaltfläche)
die bei Aufruf ins Tabellenblatt eingefügt werden,
wie kann ich diese beiden Linien in einem anderen Makro (Schaltfläche)
wieder löschen.
ActiveSheet.Shapes.AddLine(432.6, 765#, 472.8, 765#).Select
ActiveSheet.Shapes.AddLine(433.2, 768.6, 472.2, 768.6).Select
Gruss
Frank
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Linien löschen über VBA
22.06.2005 08:20:17
Claus
Servus Frank,
wenn Du die Linien selber erzeugst, dann kannst Du ihnen, bzw. den Shapes auch eigene Namen geben um sie eindeutig zu identifizieren. Anahnd dieser Namen kannst Du sie dann mit einem anderen Makro auch wieder identifizieren und löschen.
Gruss
Claus
AW: Linien löschen über VBA
22.06.2005 08:25:55
Frank
Hallo Klaus,
wie sieht das dann aus, meine VBA-Kentnisse sind noch relativ mager!
Gruss Frank
Anzeige
AW: Linien löschen über VBA
22.06.2005 09:22:43
Werner
Hallo Frank

Sub Zeichnen()
ActiveSheet.Shapes.AddLine(432.6, 765#, 472.8, 765#).Name = "LIN1"
ActiveSheet.Shapes.AddLine(433.2, 768.6, 472.2, 768.6).Name = "LIN2"
End Sub


Sub Löschen()
On Error GoTo FINI
ActiveSheet.Shapes("LIN1").Delete
ActiveSheet.Shapes("LIN2").Delete
FINI:
End Sub


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

!AlleLöschen löscht sämtliche Objekte auf dem Blatt!
Gruss Werner
Anzeige
AW: Linien löschen über VBA
22.06.2005 09:40:18
Frank
Hallo Werner,
vielen Dank für deine spontane Hilfe
Gruss
Frank
Danke für die Rückmeldung OT:-)
22.06.2005 10:07:44
Werner
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige