Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Farbe ändert sich nicht in Chart Legende mit

Farbe ändert sich nicht in Chart Legende mit
18.03.2014 12:27:52
Matthias
Hallo liebe Helfer,
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 Beispieldatei
https://www.herber.de/bbs/user/89721.xlsm
Matthias T.

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Farbe ändert sich nicht in Chart Legende mit
18.03.2014 12:51:42
Rudi
Hallo,
du färbst Datenpunkte, nicht die Reihe.
Die Legendenfarbe ist von der Reihenfarbe abhängig.
Bei der Torte geht's weil TG nur einen Datenpunkt je Reihe haben.
Gruß
Rudi

AW: Farbe ändert sich nicht in Chart Legende mit
18.03.2014 12:56:34
Matthias
Hallo Rudi,
vielen Dank, das leuchtet ein. Hast du eine Idee, wie man den Code abändern muss dafür?
Gruß
Matthias

AW: Farbe ändert sich nicht in Chart Legende mit
18.03.2014 13:07:56
Rudi
Hallo,
färbt die ganze Reihe:
Sub ColorBalken()
Dim cht As ChartObject
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
s = Split(mySeries.Formula, ",")(2)
vntValues = mySeries.Values
With mySeries.Format.Fill
.Solid
If Range(s).Cells(1).Interior.ColorIndex = -4142 Then
.Visible = False
Else
.Visible = True
.ForeColor.RGB = Range(s).Cells(1).Interior.Color
End If
End With
End If
Next mySeries
Next cht
End Sub

Gruß
Rudi

Anzeige
AW: Farbe ändert sich nicht in Chart Legende mit
18.03.2014 13:38:14
Matthias
Hallo Rudi,
merci, das funktioniert prima!!!!
Vielen Dank und Gruß
Matthias

86 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige