Coding for custom footer

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

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?
 
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
 
Back
Top