View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
William Benson[_2_] William Benson[_2_] is offline
external usenet poster
 
Posts: 230
Default Looping Through Charts / ChartObjects

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