Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Setting Default Zoom
I am using Microsoft Office 2007. I want to set the default zoom at 87%.
How can that be done? The help in Microsoft says to add then delete a space but it is unclear what they mean by that. Any help will be appreciated. |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Setting Default Zoom
This works in xl2003--untested in xl2007.
Saved from a previous post: For brand new workbooks, you could create a book.xlt workbook template (stored in your XLStart folder) that has each window the way you want. If you want existing workbooks, then ... Create a new workbook. Add this code to the ThisWorkbook module: Option Explicit Public WithEvents xlApp As Application Private Sub Workbook_BeforeClose(Cancel As Boolean) Set xlApp = Nothing End Sub Private Sub Workbook_Open() Set xlApp = Excel.Application End Sub Private Sub xlApp_NewWorkbook(ByVal Wb As Workbook) Call DoTheWork(Wb) End Sub Private Sub xlApp_SheetActivate(ByVal Sh As Object) Call DoTheWork(Sh.Parent) End Sub Private Sub xlApp_WorkbookOpen(ByVal Wb As Workbook) Call DoTheWork(Wb) End Sub Private Sub DoTheWork(Wb As Workbook) Dim myWindow As Window For Each myWindow In Wb.Windows myWindow.Zoom = 75 Next myWindow End Sub Save this file as an addin in your XLStart folder. Each time you create a new workbook, open an existing workbook, change to a new sheet, it'll set the zoom to 75%. If you're new to macros, you may want to read David McRitchie's intro at: http://www.mvps.org/dmcritchie/excel/getstarted.htm You can read a lot more about application events at Chip Pearson's site: http://www.cpearson.com/excel/AppEvent.htm Rawle wrote: I am using Microsoft Office 2007. I want to set the default zoom at 87%. How can that be done? The help in Microsoft says to add then delete a space but it is unclear what they mean by that. Any help will be appreciated. -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
recalculate page breaks after setting Zoom in pagesetup | Excel Discussion (Misc queries) | |||
Can I Set the Default Zoom Value to less than 100% | Excel Discussion (Misc queries) | |||
setting of screen zoom in excel | Excel Discussion (Misc queries) | |||
Default zoom size | Excel Discussion (Misc queries) | |||
Setting default pivot table field setting to "sum" | Excel Discussion (Misc queries) |