Formatting Multiple Series in a Chart

**jerseyguy1996** · 11-05-2009, 04:50 PM

The following code changes each line series from 2.25 point to .75 point. It should also change the color of each line to a dark green but it doesn't. The chart stays multicolored unless I run it a second time. Why does it not change the line thickness and color all at the same time? I don't want to have to call this module twice to get it to do the job.

Sub x()
    Dim objSeries As Series
    
    With ActiveChart
        For Each objSeries In .SeriesCollection
            With objSeries.Format.Line
                .Transparency = 0
                .Weight = 0.75
                .ForeColor.RGB = RGB(40, 56, 24)
            End With
        Next
    End With
End Sub

**ChemistB** · 11-05-2009, 05:08 PM

I had the same experience on the first time through but when I changed the line back and ran the macro again, it changed both. It also changed both when I stepped through the function. I'm not sure what is going on.

**Andy Pope** · 11-06-2009, 06:10 AM

This change works for me,

Sub x()
    Dim objSeries As Series
    
    With ActiveChart
        For Each objSeries In .SeriesCollection
            With objSeries.Format.Line
                .Style = msoLineSingle
                .Transparency = 0
                .ForeColor.RGB = RGB(40, 56, 24)
                .Weight = 0.75
            End With
        Next
    End With
End Sub