Drei Säulen grün (Improving), blau (No Change), rot (Worsening) werden als Pivot Diagramm abgebildet.
Sind für eine Säule Daten nicht vorhanden, werden die horizontalen Beschriftungen an der x Achse neu angeordnet und die Hintergrundfarbe der Balken verändert.
Alles kein Thema, via VBA die Farben zu setzen. Nur, ich kann den Namen bzw. den XValue der Säule nicht auslesen?
Ich habe es mit Points(n).? gekennzeichnet.
Thx Andi
Set oDia = ThisWorkbook.Sheets("Charts").ChartObjects("Diagramm 5")
For i = 1 To oDia.Chart.SeriesCollection.Count
For n = 1 To oDia.Chart.SeriesCollection(i).Points.Count
Select Case oDia.Chart.SeriesCollection(i).Points(n).?
Case "IMPROVING"
oDia.Chart.SeriesCollection(i).Points(n).Format.Fill.Visible = msoTrue
oDia.Chart.SeriesCollection(i).Points(n).Format.Fill.ForeColor.RGB = RGB(0, 176, 80)
oDia.Chart.SeriesCollection(i).Points(n).Format.Fill.Transparency = 0
oDia.Chart.SeriesCollection(i).Points(n).Format.Fill.Solid
Case "No Change"
oDia.Chart.SeriesCollection(i).Points(n).Format.Fill.Visible = msoTrue
oDia.Chart.SeriesCollection(i).Points(n).Format.Fill.ForeColor.RGB = RGB(255, 0, 0)
oDia.Chart.SeriesCollection(i).Points(n).Format.Fill.Transparency = 0
oDia.Chart.SeriesCollection(i).Points(n).Format.Fill.Solid
Case "WORSENING"
oDia.Chart.SeriesCollection(i).Points(n).Format.Fill.Visible = msoTrue
oDia.Chart.SeriesCollection(i).Points(n).Format.Fill.ForeColor.RGB = RGB(255, 0, 0)
oDia.Chart.SeriesCollection(i).Points(n).Format.Fill.Transparency = 0
oDia.Chart.SeriesCollection(i).Points(n).Format.Fill.Solid
End Select
Next
Next
Set oDia = Nothing