Print embedded charts from several sheets

[Steve]

I have 40 plus sheet with data and embedded charts. How do I quickly select
just the charts to print at the same time? I tried selecting all sheets and
then clicking on the charts but this did not work. Any ideas?

Steve

 

[Jon Peltier]

This requires a macro or more patience than you or I have, because the
charts have to be printed sequentially. Something like this:

Sub PrintAllCharts()
Dim ch As Chart
Dim sh As Object
Dim co As ChartObject

' get all chart sheets
For Each ch In ActiveWorkbook.Charts
ch.PrintOut
Next
' get all charts (chart objects) in all sheets (worksheets and chart
sheets)
For Each sh In ActiveWorkbook.Sheets
For Each co In sh.ChartObjects
co.Chart.PrintOut
Next
Next
End Sub

- Jon