Printing JUST the Charts, not the data...

[Shane]

Hi,
I'm using Excel 2000 and have a number of worksheets with
which I've created some charts (all in the same
workbook). Is there a way to print the charts that
doesn't involve having to highlight each chart
individually? I've got some charts in the same worksheet
as their source data and some that are on their own page,
but that doesn't seem to matter (unless I'm missing
something). Any ideas?

Thanks,
Shane

 

[Jon Peltier]

You could use a macro like the following. It prints out each chart
sheet, and each embedded chart on each sheet, as if you'd selected each
chart and run the Print command.

Sub PrintCharts()
Dim ch As Chart
Dim cho As ChartObject
Dim sh As Object
For Each ch In ActiveWorkbook.Charts
ch.PrintOut
Next
For Each sh In ActiveWorkbook.Sheets
For Each cho In sh.ChartObjects
cho.Chart.PrintOut
Next
Next
End Sub

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Peltier Technical Services
Tutorials and Custom Solutions
http://PeltierTech.com/
_______

 

[Shane]

John,
Thanks for the reply. A friend happened by my office
during one of my bouts of frustration and pointed out that
I can just highlight all my charts and do a "File\Print
Area\Set Print Area.." then tailor and play as needed.
Now we've got them formatted the way the Big Boss wants
them, and that makes us all happy!

Shane

 

[Jon Peltier]

Shane -

That was my first thought, but then I read your post again, and you
mentioned "each chart individually". Glad you found it.

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Peltier Technical Services
Tutorials and Custom Solutions
http://PeltierTech.com/
_______

 

[Shane]

Jon,
Quite right.. sorry. In the MIDDLE of all of it the Big
Boss asked that I print 4 charts per page.. it was
shortly thereafter that the friend showed me how.. so now
I can do either.

 

[Jon Peltier]

Those specs are always changing in the middle of the job....

- Jon