Mac Forum / Applications / Excel / March 2005

It's a byproduct of the Windows standard 96 dpi screen resolution. That
makes many WinXL users choose a smaller magnification as their standard
(tho' 50% is kind of small, most of my Win clients use 75%).

When viewed on a Mac, at 72 dpi, the image is smaller than on a Wintel
machine. This is the same problem one often sees with web site design
done on a Wintel machine.

I have, as part of my startup add-in, a class module that resizes every
workbook I open and sets the zoom to 100. It also resets the zoom every
time I change worksheets.

I put this in a new class window, named MyWindowClass, in my add-in:

   Public WithEvents oApp As Application

   Private Sub oApp_SheetActivate(ByVal Sh As Object)
       ActiveWindow.Zoom = 100
   End Sub

   Private Sub oApp_WorkbookOpen(ByVal Wb As Excel.Workbook)
       SetWindows Wb
   End Sub

   Private Sub Class_Initialize()
       Set oApp = Application
   End Sub
   
   Public Sub SetWindows(ByVal wbBook As Excel.Workbook)
       Dim wnWindow As Window
       For Each wnWindow In wbBook.Windows
           With wnWindow
               .Top = 1
               .Left = 1
               .Height = Application.UsableHeight - 30
               .Width = Application.UsableWidth - 200
               .Zoom = 100
           End With
       Next wnWindow
    End Sub

I then put this in the ThisWorkbook module:

   Dim clsMyWindow As MyWindowClass

   Private Sub Workbook_Open
       Set clsMyWindow = New MyWindowClass
   End Sub

A demo add-in is at

   ftp://ftp.mcgimpsey.com/excel/zoom100.xla