Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Printing Charts Macro Help
To all,
I have a workbook with a series of charts, each on their own worksheet. Is there any way to easily just print all of the charts with the click of a button using a Macro? Thanks in advance, Joseph Crabtree |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Printing Charts Macro Help
Do you mean that the charts are on worksheets or on Chart sheets?
I'm guessing ChartSheets: Option Explicit Sub testme() Dim ChSht As Object For Each ChSht In ActiveWorkbook.Sheets If TypeName(ChSht) = "Chart" Then ChSht.PrintOut preview:=True End If Next ChSht End Sub If you really meant worksheets, you could use this: Option Explicit Sub testme2() Dim wks As Worksheet For Each wks In ActiveWorkbook.Worksheets If wks.ChartObjects.Count 0 Then wks.PrintOut preview:=True End If Next wks End Sub Or a combination of both????????? joecrabtree wrote: To all, I have a workbook with a series of charts, each on their own worksheet. Is there any way to easily just print all of the charts with the click of a button using a Macro? Thanks in advance, Joseph Crabtree -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
printing charts to PDF | Charts and Charting in Excel | |||
Printing Pie Charts - Or | Charts and Charting in Excel | |||
Printing charts | Charts and Charting in Excel | |||
Charts for printing | Charts and Charting in Excel | |||
macro for printing pivot charts | Excel Programming |