Finding Chart Series Problem

[WhytheQ]

Good Morning,

I've got 50 charts on one sheet; each with a varying number of lines
on each chart.
Need to adjust all the series in one move. Thought I'd be able to have
a loop within a loop:

'===========================
Sub FindChartSeries()

Dim myChartObject As ChartObject
Dim mySeries As Series

For Each myChartObject In ActiveSheet.ChartObjects

myChartObject.Select

For Each mySeries In myChartObject.SeriesCollection
MsgBox "found series"
Next

Next myChartObject

End Sub
'===========================


Why is the above bugging out?
Any help much appreciated

Jason.

 

[Andy Pope]

Hi,

You need to include the Chart reference when using a ChartObject.

Sub FindChartSeries()

Dim myChartObject As ChartObject
Dim mySeries As Series

For Each myChartObject In ActiveSheet.ChartObjects
For Each mySeries In myChartObject.Chart.SeriesCollection
MsgBox "found series"
Next
Next myChartObject

End Sub

Cheers
Andy

 

[WhytheQ]

Hi,

You need to include the Chart reference when using a ChartObject.

Sub FindChartSeries()

Dim myChartObject As ChartObject
Dim mySeries As Series

For Each myChartObject In ActiveSheet.ChartObjects
     For Each mySeries In myChartObject.Chart.SeriesCollection
         MsgBox "found series"
     Next
Next myChartObject

End Sub

Cheers
Andy
















--

Andy Pope, Microsoft MVP - Excelhttp://www.andypope.info- Hide quoted text -

- Show quoted text -

cheers Andy