Excel 2003 footer font won't take

[Jim Konzak]

When I attempt to format a custom footer to Lucida
Calligraphy (italic) Excel insists on making it bold as
well. Any thoughts?

 

[Debra Dalgleish]

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

 

[RLC]

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!

 

[Dave Peterson]

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.

 

[RLC]

Awesome... Works flawlessly. I appreciate your time.

Thanks, from a novice!!!!