Excel 2003 footer font won't take

  • Thread starter Thread starter Jim Konzak
  • Start date Start date
J

Jim Konzak

When I attempt to format a custom footer to Lucida
Calligraphy (italic) Excel insists on making it bold as
well. Any thoughts?
 
I was able to select the font programmatically, but not manually. The
following code adds the word "MyText" to the left footer:

Sub FooterFont()
With ActiveSheet.PageSetup
.LeftFooter = "&""Lucida Calligraphy,Italic""&28MyText"
.CenterFooter = ""
.RightFooter = ""
End With
End Sub
 
OK, another user with a similar problem... how would you
combine setting the font, with setting the path?

I got the path to finally work
(ActiveSheet.PageSetup.LeftFooter = ThisWorkbook.FullName
), but I want that path to print in 8 point font...
Thank you!
 
When I recorded a macro to change the size of a dummy footer, I got this (with
the non-essential lines deleted):

With ActiveSheet.PageSetup
.LeftFooter = "&8asdfasdf"
End With

You could modify it to:

With ActiveSheet.PageSetup
.LeftFooter = "&8" & thisworkbook.fullname
End With

Just a word of warning (that doesn't apply):

If you have text that starts with a number in your footer, make sure you leave a
blank after the final digit in the font size:

With ActiveSheet.PageSetup
.LeftFooter = "&8" & " 12/25/2005"
End With

I've seen excel get confused and try to make a huge font.
 
Back
Top