SeriesCollection(2).Points: per Name ansprechen ?
zacharias
ich komme nicht weiter. Ich habe ein Chart wie folgt erzeugt:
Set PC = wksZiel.ChartObjects.Add(0, Cells(intStartRow, 1).Top, 600, 300)
With PC.Chart
.ChartType = xlColumnStacked
.SetSourceData Source:=rngWasserfall, PlotBy:=xlColumns
...
Das Stapelchart besteht aus 2 Datenreihen (SeriesCollection). Die 1. ist auf unsichtbar gesetzt, die 2. auf sichtbar ("Wasserfall"). Es existieren 4 Säulen: 1. "Gesamtanzahl", 2. "DB,CKD,SKD", 3. usw.
Ich erzeuge die Tabellen und Charts dynamisch da sich Anzahl und Reihenfolge der Spalten(Überschriften) häufig ändert .
Mein Ziel ist es, abhängig von der Daten(Spalten)-Beschriftung die Farbe des Datenpunktes (des aufgestapelten Säulenanteils) zu ändern. Wenn die Beschriftung also "DB,CKD,SKD" lautet soll der Datenpunkt z.B. blau eingefärbt werden.
Folgender Versuch funktionierte nicht:
PC.Chart.SeriesCollection(2).Points("DB,CKD,SKD").Interior.ColorIndex = 8
Eine gesamte Datenreihe kann man zwar wie folgt ansprechen
.SeriesCollection("Beispiel").Fill.ForeColor.SchemeColor = 40
bei einem Datenpunkt klappt das aber nicht
Die Points-Eigenschaft des Series-Objekts kann nicht zugeordnet werden
Auch ein Ermitteln der PointsNr durch Schleifendurchlauf bekomme ich nicht hin, da ich für .Points keine Eigenschaft für den Namen finde (.name, .Caption, .Text o.ä).
Ich bin für jeden Hinweis wie immer dankbar !!
Gruß und schon jetzt Danke für's Lesen
Zacharias