For Each Chart Help Needed

[Brorenzo]

Hi All,

Trying to loop through 72 charts on a single worksheet to update the border color on them. My VBA code fails with a "Type mismatch" on the beginning of the With. Little help please? Code below.

Sub PivotBorder()    Dim MyChart As ChartObject
    For Each MyChart In ActiveSheet.ChartObjects
        MyChart.Activate
        With ActiveSheet.Shapes(MyChart).Line
            .Visible = msoTrue
            .ForeColor.RGB = RGB(63, 63, 63)
            .Transparency = 0
        End With
    Next MyChart
End Sub

 

[JoeMo]

Have you tried changing this line:

With ActiveSheet.Shapes(MyChart).Line

to this:

With ActiveChart.Line

 

[Brorenzo]

I have, yes. I get a Compile Error: Method or data member not found.

 

[JoeMo]

I have, yes. I get a Compile Error: Method or data member not found.

Maybe:

ActiveChart.SeriesCollection(1).Border

 

[Brorenzo]

No dice. Same issue with .Line instead of .Border.

 

[JoeMo]

You need to get the correct syntax - maybe:

With ActiveChart.SeriesCollection(1).Border
.Color = RGB(63, 63, 63)
End With

 

[Brorenzo]

Well, it didn't error out that time, but it didn't work as expected either. This ended up changing the line color on the line graphs to (63,63,63), instead of changing the Borders of the charts. :-/

Thanks for trying. I'm going to research and see if there's a command I'm missing.

 

[JoeMo]

Well, it didn't error out that time, but it didn't work as expected either. This ended up changing the line color on the line graphs to (63,63,63), instead of changing the Borders of the charts. :-/

Thanks for trying. I'm going to research and see if there's a command I'm missing.

I thought you wanted to change the line color. Good luck with your research.