Footer in a Chart (2000)

Topic

New Reply

I am trying to put footer in several charts. I have written the footer:

With ActiveChart.PageSetup
.LeftFooter = “”
.CenterFooter = “&””Times New Roman,Regular””&8&T &D. ” & ActiveWorkbook.FullName & “” & Application.ActiveSheet.Name
.RightFooter = “”
End With

However when I select the chart and go to Tools/Macro the only options shown are Record New Macro and Visual Basic Editor.

Can anyone help?

Reply | Quote

Replies

Where did you write this code (i.e., if you view the code, what does the title bar say)?
And what is its “header” (i.e. Sub …, or Function …)?

Reply | Quote

Hans

The code is in Module 1 of the Workbook, and it is a Sub.

Reply | Quote

Does the Sub have arguments?

Reply | Quote

No.

If it makes the code easier I would be happy for the macro to put the footer in all charts in the active sheet in turn.

Reply | Quote

Let’s back up a step. You stated “… Tools/Macro the only options shown are Record New Macro and Visual Basic Editor”. Do you mean that there is no Macros… menu item? If so:
– Select Tools | Customize…
– Activate the Commands tab.
– Select Tools in the Categories list on the left.
– Select Macros… in theCommands list on the right.
– Drag Macros… to the menu bar.
– Hover the mouse pointer over the Tools menu until it drops down.
– Hover the mouse pointer over the Macro submenu until it flies out.
– Drop Macros… in the submenu.
– Close the Customize window.

Reply | Quote

Oops I replied to my own post.

Thank you Hans, it works like a charm.

Reply | Quote

Thank you Hans, it works like a charm.

Reply | Quote