changing default in page setup

  • Thread starter Thread starter bwong
  • Start date Start date
B

bwong

I would like to make a change so it becomes default.



It is in Print Preview - Setup - Header/Footer tab. I want to make the font
size 8 as default, I think the current default is 10.



Is this possible?
 
Not possible AFAIK without changing default Font at Tools>Options>General
which is a global setting for all new Excel workbooks.

You probably wouldn't like the 8 pt font for column and row headers as well
as default font size in cells.

I suggest a quick macro saved in your Personal.xls

Sub Set_Footer_Font()
With ActiveSheet.PageSetup
.LeftFooter = "&""Arial,Regular""&8"
End With
End Sub

That will set the font size to 8 pt for whatever you enter as a left footer.

Which could also be set in the above macro.


Gord Dibben MS Excel MVP
 
Thanks Gord.

Can you please lead me with baby steps to create the macro then save it?

I also like to make the footer a default for all new sheets/books. How can I
do this too? The footer to display the saved file name in 8pts.

Cheers
Ben
 
First things first..............add the macro to your Personal.xls

Do you have a Personal.xls?

When you start Excel do you get a hidden workbook named Personal.xls?

Look for it under Window>Unhide.

If not there you must create it.

Turn on Macro Recorder and store the recorded macro in "Personal Macro
Workbook"..............picked from the "Store macro in:" dropdown.

Record yourself copying and pasting a cell.

Turn off macro recorder.

Window>Unhide>Personal.xls

Go to Tools>Macro>Macros and you will see a list of macros............in
this case, only Macro1.

Select it and "Edit" to go to the macro you just recorded.

In that open module, paste the revised code I posted in this reply.

Alt + q to return to Excel.

Select Personal.xls from Window Menu...........hide it.

Close Excel and you will be asked if you want to save
Personal.xls,,,,,,,,,,,,Yes, you do.

You now have a Personal.xls which will open when Excel does.

You can run the macro on any open workbook.

When you get this far and have the macro running properly. post back.

To change the default workbook and worksheet settings involves much more and
would require that all new workbooks and sheets would have code.

I would not do that................just run the macro on new workbooks.

To have filename in the Footer change the macro to this one.

Sub Set_Footer_Font()
With ActiveSheet.PageSetup
.LeftFooter = "&""Arial,Regular""&8&F"
End With
End Sub


Gord
 
Back
Top