VBA for recolouring all series in a chart the same colour

Courtesy of Andy Pope I managed to do it with the following code:

Sub recolour()
Dim objSeries As Series

With ActiveChart
For Each objSeries In .SeriesCollection
With objSeries.Format.Line
'.Transparency = 0
'.Weight = 1.5
.ForeColor.RGB = RGB(68, 114, 196)
End With
Next
End With
End Sub

This is courtesy of yujin who helped me a few weeks ago, you can add more colours if needed in the array.

It worked well for me, hope it does for you too.

Please Login or Register  to view this content.