Farbe ändert sich nicht in Chart Legende mit
18.03.2014 12:27:52
Matthias
habe folgendes Problem: Mein Code soll die Farben der Balkencharts gemäß Farbmarkierung der Werte-Zellen ändern. Funktioniert auch prima! Die Farben der Balken ändern sich wunschgemäß nur die Farben der Legendensymbole ändern sich nicht? WARUM? Mit Pie Charts als Charttyp funktioniert es übrigend.
Sub ColorBalken()
Dim cht As ChartObject
Dim i As Integer
Dim vntValues As Variant
Dim s As String
Dim myseries As Series
For Each cht In ActiveSheet.ChartObjects
For Each myseries In cht.Chart.SeriesCollection
If myseries.ChartType xlColumnStacked Then GoTo SkipNotColumnStacked
s = Split(myseries.Formula, ",")(2)
vntValues = myseries.Values
For i = 1 To UBound(vntValues)
With myseries.Points(i).Format.Fill
.Solid
If Range(s).Cells(i).Interior.ColorIndex = -4142 Then
.Visible = False
Else
.Visible = True
.ForeColor.RGB = Range(s).Cells(i).Interior.Color
End If
End With
Next i
SkipNotColumnStacked:
Next myseries
Next cht
End Sub
Vielen Dank für Eure Hilfe, anbei die Beispieldateihttps://www.herber.de/bbs/user/89721.xlsm
Matthias T.