Excel : VBA Macro to make all series in a chart the same color (RGB)

February 2, 2022

Reaching out to the knowledge base.

Can someone point me to an Excel Macro that would color all the series (lines) in a specific (selected/current) chart the same color?

I have started the following, but it does nothing:

  Sub Same_Color()
 Dim Chart As Chart
 Dim Series As Series

 Set Chart = ActiveChart
 Set Series = Chart.SeriesCollection(2)

 Series.Format.Line.ForeColor.RGB = RGB(0, 255, 0)

End Sub

Thanks in advance

>Solution :

is it this what you need?

Sub InsertChartAndFormat()
 Dim cht As ChartObject

 Set cht = Sheet1.ChartObjects.Add(Left:=10, Width:=500, Top:=50, Height:=300)

 With cht
 .Chart.SetSourceData Source:=Sheet1.Range("A1:L2")
 .Chart.ChartType = xlBarClustered
 .Chart.SeriesCollection(1).Format.Fill.ForeColor.RGB = rgbAqua
End With

End Sub

BR
Bernd