Diagrammlegende bearbeiten
19.06.2015 17:35:03
Malte
ich habe ein Diagramm mit dem Namen "Diagramm_Test". In diesem Diagramm plotte ich eine variable Anzahl von Datenreihen für verschiedene Temperaturen. Die Temperaturen heißen in der Legende z.B. "100 °C" oder "200 °C".
Nun plotte ich zusätzlich zwei weitere Kurven für jede Temperatur. Diese haben immer die gleichen Namen ("Extremwert" und "GGW") sodass ich folgende Struktur habe:
"100 °C"
"Extremwert"
"GGW"
"200 °C"
"Extremwert"
"GGW"
Ich würde gerne aufgrund des Namens ("Extremwert" und "GGW") der Datenlinie den Legeneintrag löschen.
Ich habe bereits folgendes probiert:
Sub Test()
i as Integer
Set cht = Sheets("Reinstoff").ChartObjects("Diagramm_Test").Chart
For i = cht.Legend.LegendEntries.Count To 1 Step -1
If cht.SeriesCollection(i).Name = "Extremwerte" Or cht.SeriesCollection(i).Name = "GGW" _
Then
cht.Legend.LegendEntries(i).Delete
End If
Next i
End Sub
Kann mir dabei jemand helfen?
Vielen Dank!
Gruß
Malte