Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.charting
|
|||
|
|||
Headers and Footer on the Chart do not work??????
I have this program that take values from the cell B3 an B4 on th Sheet1 and
put them automatically in all headers and footers in all the worksheets (see below). However, when I run the program all the sheets got the header and footer except the sheets that have chart. Could you please help me to fix this problem?. Thanks in advance. Maperalia Option Explicit Sub HeadersAndFooters() Dim WS As Worksheet For Each WS In Worksheets '***********Header*********** WS.PageSetup.RightHeader = "&14&B&I" & Format(Worksheets("Sheet1").Range("B3").Value) '***********Footer*********** WS.PageSetup.LeftFooter = "&14&B&I" & Format(Worksheets("Sheet1").Range("B4").Value) Next WS End Sub |
#2
Posted to microsoft.public.excel.charting
|
|||
|
|||
Headers and Footer on the Chart do not work??????
Charts sheets is not a worksheet.
So charts are not in the collection of ActiveWorkbook.Worksheets, they are in the collection of ActiveWorkbook.Charts. In your program, I think you apply the footer and header to all worksheets, not include charts. -- Best regards, --- Yongjun CHEN ================================= XLDataSoft - Data Analysis Expert, Excel/VBA Specialist - - - - www.XLDataSoft.com - - - - Free Excel-Based Data Processing Tool is Available for Download ================================= "maperalia" wrote in message ... I have this program that take values from the cell B3 an B4 on th Sheet1 and put them automatically in all headers and footers in all the worksheets (see below). However, when I run the program all the sheets got the header and footer except the sheets that have chart. Could you please help me to fix this problem?. Thanks in advance. Maperalia Option Explicit Sub HeadersAndFooters() Dim WS As Worksheet For Each WS In Worksheets '***********Header*********** WS.PageSetup.RightHeader = "&14&B&I" & Format(Worksheets("Sheet1").Range("B3").Value) '***********Footer*********** WS.PageSetup.LeftFooter = "&14&B&I" & Format(Worksheets("Sheet1").Range("B4").Value) Next WS End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Adding Headers and Footer to an Entire Workbook?? | Excel Discussion (Misc queries) | |||
Permantly removing header and footer | Excel Discussion (Misc queries) | |||
How can I get headers to copy in charts? | Charts and Charting in Excel | |||
header and footer problems | Charts and Charting in Excel | |||
How do I make the custom headers and footer repeat on every works. | Excel Worksheet Functions |