Home |
Search |
Today's Posts |
#1
|
|||
|
|||
Default view of Excel to 75%
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. |
#2
|
|||
|
|||
Do not think this is possible
best wishes -- Bernard V Liengme www.stfx.ca/people/bliengme remove caps from email "Gaurav" wrote in message ... 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. |
#3
|
|||
|
|||
Hi Gaurav
Open a new workbook On all sheets set zoom to 75% Save the file as "Book" (no quotes) in your startup folder as a template. Every workbook you create will have this settings now -- Regards Ron de Bruin http://www.rondebruin.nl "Gaurav" wrote in message ... 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. |
#4
|
|||
|
|||
Open a new workbook, set the zoom to 75% and save it as a template (.xlt).
Use the template for all new workbooks - you access it by clicking on file-new. HTH "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. |
#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 |
#6
Posted to microsoft.public.excel.misc
|
|||
|
|||
Default view of Excel to 75%
Dave,
I got a compile error at the line Public WithEvents xlApp As Application in Excel 2003 when I opened the application. Thanks. -- Thank you, Peter "Dave Peterson" wrote: 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 |
#7
Posted to microsoft.public.excel.misc
|
|||
|
|||
Default view of Excel to 75%
Did you put the code in the ThisWorkbook module?
Peter wrote: Dave, I got a compile error at the line Public WithEvents xlApp As Application in Excel 2003 when I opened the application. Thanks. -- Thank you, Peter "Dave Peterson" wrote: 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 -- Dave Peterson |
#8
Posted to microsoft.public.excel.misc
|
|||
|
|||
Default view of Excel to 75%
Yes, I did exactly that in the Visual Basic window, and then saving the file
as Book1.xla in the XLStart folder. -- Thank you, Peter "Dave Peterson" wrote: Did you put the code in the ThisWorkbook module? Peter wrote: Dave, I got a compile error at the line Public WithEvents xlApp As Application in Excel 2003 when I opened the application. Thanks. -- Thank you, Peter "Dave Peterson" wrote: 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 -- Dave Peterson |
#9
Posted to microsoft.public.excel.misc
|
|||
|
|||
Default view of Excel to 75%
Try saving as a Template named BOOK.xlt in your XLSTART folder.
Gord Dibben MS Excel MVP On Sat, 4 Aug 2007 11:36:01 -0700, Peter wrote: Yes, I did exactly that in the Visual Basic window, and then saving the file as Book1.xla in the XLStart folder. |
#10
Posted to microsoft.public.excel.misc
|
|||
|
|||
Default view of Excel to 75%
I wouldn't use a .xlt template file for code like this. It doesn't need to be
in each workbook that excel opens--just one workbook that opens when excel opens. Gord Dibben wrote: Try saving as a Template named BOOK.xlt in your XLSTART folder. Gord Dibben MS Excel MVP On Sat, 4 Aug 2007 11:36:01 -0700, Peter wrote: Yes, I did exactly that in the Visual Basic window, and then saving the file as Book1.xla in the XLStart folder. -- Dave Peterson |
#11
Posted to microsoft.public.excel.misc
|
|||
|
|||
Default view of Excel to 75%
I would have used a nicer (less generic) name, but book1.xla is ok if you want.
My next guess is that there are other characters on that line. You may have found the code using some web interface (google?) and copying from that web page may have introduced some extra characters. Select that line and delete it. Then retype it. Peter wrote: Yes, I did exactly that in the Visual Basic window, and then saving the file as Book1.xla in the XLStart folder. -- Thank you, Peter "Dave Peterson" wrote: Did you put the code in the ThisWorkbook module? Peter wrote: Dave, I got a compile error at the line Public WithEvents xlApp As Application in Excel 2003 when I opened the application. Thanks. -- Thank you, Peter "Dave Peterson" wrote: 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 -- Dave Peterson -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
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) |