ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   How to change font in a macro that inserts a formula in a footer (https://www.excelbanter.com/excel-programming/319992-how-change-font-macro-inserts-formula-footer.html)

Alan Tolkoff[_2_]

How to change font in a macro that inserts a formula in a footer
 
I've written the following macro (this is the operative part of it) to insert
the file name AND path into the left footer of my Excel 2000 spreadsheet:

With ActiveSheet.PageSetup
.LeftFooter = ActiveWorkbook.Path
.LeftFooter = ActiveWorkbook.FullName
End With

The macro works fine. HOWEVER, I want to change the point size of the font
from "normal" to .08. I've tried entering a line code of "&08", but it
doesn't work, as this is intended to change text. Since the macro is
entering a formula, the "&08" doesn't work.

Any solution?

Thank you in advance.

Tom Ogilvy

How to change font in a macro that inserts a formula in a footer
 
With ActiveSheet.PageSetup
.LeftFooter = "&8" & ActiveWorkbook.FullName
End With

--
Regards,
Tom Ogilvy

"Alan Tolkoff" wrote in message
...
I've written the following macro (this is the operative part of it) to

insert
the file name AND path into the left footer of my Excel 2000 spreadsheet:

With ActiveSheet.PageSetup
.LeftFooter = ActiveWorkbook.Path
.LeftFooter = ActiveWorkbook.FullName
End With

The macro works fine. HOWEVER, I want to change the point size of the

font
from "normal" to .08. I've tried entering a line code of "&08", but it
doesn't work, as this is intended to change text. Since the macro is
entering a formula, the "&08" doesn't work.

Any solution?

Thank you in advance.




Alan Tolkoff[_2_]

How to change font in a macro that inserts a formula in a foot
 
Thank you!

@

"Tom Ogilvy" wrote:

With ActiveSheet.PageSetup
.LeftFooter = "&8" & ActiveWorkbook.FullName
End With

--
Regards,
Tom Ogilvy

"Alan Tolkoff" wrote in message
...
I've written the following macro (this is the operative part of it) to

insert
the file name AND path into the left footer of my Excel 2000 spreadsheet:

With ActiveSheet.PageSetup
.LeftFooter = ActiveWorkbook.Path
.LeftFooter = ActiveWorkbook.FullName
End With

The macro works fine. HOWEVER, I want to change the point size of the

font
from "normal" to .08. I've tried entering a line code of "&08", but it
doesn't work, as this is intended to change text. Since the macro is
entering a formula, the "&08" doesn't work.

Any solution?

Thank you in advance.






All times are GMT +1. The time now is 09:46 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com