Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Looping Through Charts / ChartObjects
HI William Benson,
For Each Ser In chObj.Chart.SeriesCollection Ed Ferrero http://edferrero.m6.net 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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Looping Through Charts / ChartObjects
Perfect, thank you Ed.
"Ed Ferrero" wrote in message ... HI William Benson, For Each Ser In chObj.Chart.SeriesCollection Ed Ferrero http://edferrero.m6.net 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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
ChartObjects | Excel Programming | |||
Looping through charts in a worksheet | Excel Programming | |||
Looping through to stop on pie charts | Excel Programming | |||
Looping Through Charts | Excel Programming | |||
Looping Through Charts | Excel Programming |