Coding for custom footer

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

cakprogramming - 24 Mar 2006 10:15 GMT

I am trying to put 1 of 4 footers into the center footnote via a macro. Which
footer that goes in depends on the scenario selected by the end user.

The longest of the 4 footnotes is 198 characters. The left footnote is 56
characters. The right footnote is today's date and should have a maximum
length of 10 characters.

So the sum of all of these never exceeds the 255 mark.

Yet I get an error message "Runtime 1004. Unable to set the CenterFooter
property in Page Setup" on 3 of the 4 footnotes.

If need be, how do you paste or insert one of four pictures in the
CenterFootnote?

Reply to this Message

Gary''s Student - 24 Mar 2006 11:42 GMT

Sub Macro1()
Dim s As String
s = Cells(1, 1).Value
ActiveSheet.PageSetup.CenterFooter = s
End Sub

will set the centerfooter to some text string

If you want a picture in the centerfooter then

ActiveSheet.PageSetup.CentertFooterPicture.FileName = "C:\pic.jpg"
or some other text string specifying the file

Signature

Gary''s Student

> I am trying to put 1 of 4 footers into the center footnote via a macro. Which
> footer that goes in depends on the scenario selected by the end user.
[quoted text clipped - 10 lines]
> If need be, how do you paste or insert one of four pictures in the
> CenterFootnote?

Reply to this Message

Mike Fogleman - 25 Mar 2006 14:52 GMT

198+56+10=264

Mike F

>I am trying to put 1 of 4 footers into the center footnote via a macro.
>Which
[quoted text clipped - 11 lines]
> If need be, how do you paste or insert one of four pictures in the
> CenterFootnote?

Reply to this Message