Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Loop through each series in chart and alter marker colors

Public Sub TestSeries()     Dim mySeries As Series     Dim seriesCol As SeriesCollection     Dim I As Integer     I = 1     Set seriesCol = ActiveSheet.ChartObjects(1).Chart.SeriesCollection     For Each mySeries In seriesCol         Set mySeries = ActiveSheet.ChartObjects(1).Chart.SeriesCollection(I)         With mySeries             .MarkerBackgroundColor = RGB(1, 32, 43)             .MarkerForegroundColor = RGB(11, 32, 43)             .Border.Color = RGB(11, 12, 23)         End With         I = I + 1     Next End Sub