Default zoom
I would like all of the workbooks, both new and old, to open at 85% zoom
instead of the default 100%. Is this possible? How? Thanks for your help in advance. |
Default zoom
Saved from a previous post (you'll have to adjust the percentage):
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: Debra Dalgleish has some notes how to implement macros he http://www.contextures.com/xlvba01.html David McRitchie has an intro to macros: http://www.mvps.org/dmcritchie/excel/getstarted.htm Ron de Bruin's intro to macros: http://www.rondebruin.nl/code.htm (General, Regular and Standard modules all describe the same thing.) Mike wrote: I would like all of the workbooks, both new and old, to open at 85% zoom instead of the default 100%. Is this possible? How? Thanks for your help in advance. -- Dave Peterson |
All times are GMT +1. The time now is 11:26 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com