Guten Tag,
Ich würde gerne bei einem Liniendiagramm die Linienfarben aus Zellen übernehmen.
Nun habe ich die betreffenden stellen mittels Makrorekorder aufgenommen:
ActiveSheet.ChartObjects("Diagramm 1").Activate
With ActiveChart.FullSeriesCollection(5).Format.Line
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorAccent6
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0.8000000119
.Transparency = 0
End With
ich weiß jetzt aber nicht wie ich die msoThemeColorAccent6 mit der betreffenden Zellfarbe ersetzen soll.
Wenn ich das mit Interior.Colorindex der jeweiligen Zelle mache kommt immmer ein Fehler.
Mit freundlichen Grüßen
Max