Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 19
Default set excel zoom in 80

Hello, how can i set the excel program zoom in 80% forever. In order to each
time i open the application it opens with zoom = 80%
  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 27,285
Default set excel zoom in 80

zoom is associated with each worksheet. It is not an application level
setting. You would probably need to instantiate application level events
and use the sheet activate event to set the zoom.

http://www.cpearson.com/Excel/appevent.htm
Chip Pearson's page on application level events.

--
Regards,
Tom Ogilvy


"Julio" wrote in message
...
Hello, how can i set the excel program zoom in 80% forever. In order to

each
time i open the application it opens with zoom = 80%



  #3   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 35,218
Default set excel zoom in 80

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 ...

Saved from a previous post:

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

Julio wrote:

Hello, how can i set the excel program zoom in 80% forever. In order to each
time i open the application it opens with zoom = 80%


--

Dave Peterson
  #4   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 35,218
Default set excel zoom in 80

Change that 75 to 80.

Oopsie.
Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Please help! Print Preview Zoom is Grayed Out...Doesn't zoom. PK Excel Discussion (Misc queries) 0 July 20th 09 03:33 PM
Excel Zoom Problem VFortin Excel Discussion (Misc queries) 2 September 5th 07 08:17 PM
setting of screen zoom in excel Sunantoro Excel Discussion (Misc queries) 1 September 13th 05 05:03 PM
zoom in Excel Eric Excel Discussion (Misc queries) 0 June 1st 05 12:13 AM
zoom in Excel Gary Brown Excel Discussion (Misc queries) 0 May 31st 05 11:49 PM


All times are GMT +1. The time now is 06:22 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"