Guten Tag,

ich suche eine Lösung für folgendes Problem.
Ich habe in einem Diagramm vier Shape-Linien erzeugt (Beispiel s. unten) und möchte diese später wieder löschen.
- Wie kann ich die Namen dieser 4 Linien auslesen, damit ich sie löschen kann?
- Geht dies dann mittels "ActiveSheet.Shapes("Ausgelesener Name").Delete" ?

-------------------
Sheets ("Diagramm_Linien").Select
tt1 = 322 - 389 / 100 * Sheets("Daten").Range("B11").Value
tt2 = 322 - 389 / 100 * ((Sheets("Daten").Range("B11").Value) + (Sheets("Daten").Range("B22").Value)) / 2
With ActiveChart.Shapes.AddLine(57, tt2, 82, tt1).Line
.Weight = 2
.ForeColor.RGB = RGB(255, 0, 0)
End With
-----------------------------

Vielen Dank für einen Tipp!
Wolfgang