Looping Through Charts / ChartObjects

W

William Benson

Hi, I know the last paragraph below has a bad syntax, but what I want to do
is loop through charts on all worksheets and print the formulas of each of
the charts' series. I DO NOT want to activate the chart, can you please
repair my syntax/object references? Thanks!!!!!!!

Dim ch As Chart
Dim chObj As Object
Dim Sh As Worksheet
Dim Ser As Series

'This code works fine for chart sheets
For Each ch In ThisWorkbook.Charts
For Each Ser In ch.SeriesCollection
Debug.Print Ser.Formula
Next Ser
Next ch

'This code FAILS for charts embedded in worksheet (not a chart sheet)
For Each Sh In ThisWorkbook.Worksheets
For Each chObj In Sh.ChartObjects
For Each Ser In chObj.SeriesCollection 'This property donesn't
exist!!
Debug.Print Ser.Formula
Next Ser
Next chObj
Next Sh
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

2002 Vs 2003 7
Formatting selected chart in Excel 2007 8
for each chart (sheet and embedded) 1
Retrieve Error Bar Values 4
Check for the existence of data labels 2
Embedded charts with events not working? 0
Loop through charts 2
How to delete an embedded chart 1

Top