Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations cowski on being selected by the Eng-Tips community for having the most helpful posts in the forums last week. Way to Go!
Display spreadsheet cell data as footer for chart 4
- Thread starter macajm
- Start date
-
3
- #2
macajm:
As far as I know, the only way you might be able to do this is by writing a macro. Say you wanted the left portion of the footer to display the text in cell "A1". Assuming the sheet's name is "Sheet1" you would need the following code:
Worksheets("Sheet1"
.PageSetup.LeftFooter = Range("A1".Value
Similarly, there are Left, Right, and Center header & footer properties.
An easy way to get the format you want is to record a macro and format the header / footer with the text you want displayed. Next, you can go edit out the text you typed and insert the links to your information (like for cell "A1" above)
If you need any help, let me know.
Good luck!
jproj
As far as I know, the only way you might be able to do this is by writing a macro. Say you wanted the left portion of the footer to display the text in cell "A1". Assuming the sheet's name is "Sheet1" you would need the following code:
Worksheets("Sheet1"
.PageSetup.LeftFooter = Range("A1".ValueSimilarly, there are Left, Right, and Center header & footer properties.
An easy way to get the format you want is to record a macro and format the header / footer with the text you want displayed. Next, you can go edit out the text you typed and insert the links to your information (like for cell "A1" above)
If you need any help, let me know.
Good luck!
jproj
-
1
- #3
jproj,
Works like a charm! I've needed this before but always got stuck thinking there must be a way to do this from the custom footer dialog (i.e., using an &code or something). Note, also, you can put your footer-altering code in a BeforePrint event handler to automatically update the footer info.
Btw, I often record a macro to use as a starting point for complicated or unfamiliar actions.
Regards,
M. Smith
Works like a charm! I've needed this before but always got stuck thinking there must be a way to do this from the custom footer dialog (i.e., using an &code or something). Note, also, you can put your footer-altering code in a BeforePrint event handler to automatically update the footer info.
Btw, I often record a macro to use as a starting point for complicated or unfamiliar actions.
Regards,
M. Smith
- Thread starter
- #4
TO jproj -
Thanks for your idea which I implemented as follows:-
Sub SSdata_toChart()
' Macro recorded 29/04/2002
' Puts contents of Cell A1 into Footer
With ActiveChart.PageSetup
.LeftFooter = Range("a1"
End With
End Sub
To M.Smith -
How do you create a "BeforePrint" event handler?
Thanks for your idea which I implemented as follows:-
Sub SSdata_toChart()
' Macro recorded 29/04/2002
' Puts contents of Cell A1 into Footer
With ActiveChart.PageSetup
.LeftFooter = Range("a1"
End With
End Sub
To M.Smith -
How do you create a "BeforePrint" event handler?
macajm,
With the VBA Editor open, highlight ThisWorkbook in the Project window. Click on the View Code button (leftmost button at top of Project window). Select Workbook from the lefthand drop-down in the Code window (this will initially show General) then BeforePrint in the righthand drop-down. This will create an empty event handler procedure. Drop your code in and it will run prior to printing. Good Luck!
M. Smith
With the VBA Editor open, highlight ThisWorkbook in the Project window. Click on the View Code button (leftmost button at top of Project window). Select Workbook from the lefthand drop-down in the Code window (this will initially show General) then BeforePrint in the righthand drop-down. This will create an empty event handler procedure. Drop your code in and it will run prior to printing. Good Luck!
M. Smith
- Status
Similar threads
- Locked
- Question
- Locked
- Question
