ich möchte gerne die Legendeneinträge von Diagrammen automatisiert formatieren (Liniendiagramm).
Jedes Diagramm bezieht die Datenquelle und damit auch die Beschriftungen aus einer Datenquelle im selben Sheet.
Falls der z.B. ein Eintrag "Müller" ist, dann soll die
Linie rot und rechteckig sein, falls der Eintrag "Schmitz" lautet, so z.B. blau und rund. Ich kann allerdings nicht ohne weiteres auf den mit dem Legendeneintrag verküpften Wert zugreifen und diesen abfragen. Im Moment formatiere ich folgerndermaßen (wobei die Abfrage je nach Name noch nicht enthalten ist)
Wäre für jegliche Tips und Denkanstöße dankbar.
For Each act_chart In act_sheet.ChartObjects
act_sheet.ChartObjects(1).Activate
ActiveChart.Legend.Select
For Each act_legend In ActiveChart.Legend.LegendEntries
MsgBox act_legend.Index
'hier würde ich gerne den Wert abfragen, aber wie?
act_legend.LegendKey.Select
With Selection.Border
.ColorIndex = 32
... end with