Printing JUST the Charts, not the data...

  • Thread starter Thread starter Shane
  • Start date Start date
S

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
 
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/
_______
 
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
 
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/
_______
 
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. :-)
 
Back
Top