Display spreadsheet cell data as footer for chart 4

[macajm]

Does anyone know how to display info from a spreadsheet cell as part of a header or footer on a chart (or anywhere else an a chart for that matter)?

 

[jproj]

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&quot.PageSetup.LeftFooter = Range("A1&quot.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

 

[msmith]

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

 

[macajm]

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&quot
End With
End Sub


To M.Smith -
How do you create a "BeforePrint" event handler?

 

[msmith]

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