Loop through each series in chart and alter marker colors : Chart Format « Excel « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Excel
3. Chart Format

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

 

Related examples in the same category