Object doesn't support this property or method --- ChartObject and seriesCollection

[hrjohnson]

Hello,

I have multiple charts embedded on a worksheet and I want to color every series point so they all look the same.
This is my sub:

Sub uniformChart()
Dim mapChart As ChartObject
Dim objSeries As Series
   For Each mapChart In ActiveWorkbook.Sheets("Home").ChartObjects
    With mapChart
         For Each objSeries In .SeriesCollection
            With objSeries
                                .MarkerStyle = xlMarkerStyleSquare
                                .Format.Fill.Solid
                                .MarkerBackgroundColor = RGB(51, 204, 204)
                                .MarkerSize = 6
    
            End With
         Next
    End With
  Next
End Sub

I get the error "Object Doesn't support this Property or Method" and it highlights "For Each objSeries In .SeriesCollection" line. I'm confused, I though Series Collection was a method of ChartObject?

 

[RoryA]

A ChartObject is actually the container for an embedded Chart. You need to use:

With mapChart.Chart

 

[hrjohnson]

Perfect, thank you!

 

[RoryA]

Glad to help.