Home |
Search |
Today's Posts |
#5
![]() |
|||
|
|||
![]()
If you want that zoom for just new workbooks, you can ignore this. But if you
want that zoom whenever you open any workbook.... Create a new workbook. Add this code to the ThisWorkbook module (hi, Bob!): 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 Gaurav wrote: Hi I want to set the default view of excel to 75% . When ever I open Excel or a new file in Excel the view should be 75% by default. -- Dave Peterson |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Setting a Default Value in Excel | Excel Discussion (Misc queries) | |||
how do i view all groups under excel in google groups | Excel Discussion (Misc queries) | |||
How do I change my default browser from MS Excel 2002. Links cur. | Excel Discussion (Misc queries) | |||
How do I change my default browser from MS Excel 2002. Links cur. | Excel Discussion (Misc queries) | |||
how would i change default user name all excel files | Excel Discussion (Misc queries) |