View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Medemper Medemper is offline
external usenet poster
 
Posts: 26
Default How to control the zoom between two pages

Hows this for ugly:

Make a module1. Put following into it:

Public ZoomFactor As Variant

Sub SetZoomFactor()
ZoomFactor = ActiveWindow.Zoom
End Sub


Put following into each of the worksheets that you want to be the same:

Private Sub Worksheet_Activate()
If ActiveWindow.Zoom < ZoomFactor Then
ActiveWindow.Zoom = ZoomFactor
End If
End Sub

To set them to a set percentage, get the zoom the way you want it on one, then run the SetZoomFactor macro. Then change to other sheet.

Everytime you want to change the zoom to something else, you'd have to get the zoom how you want it, then run the SetZoomFactor macro.

"whr" wrote in message om...
Due to a current known issue with combo boxes and zooms, I need to
make sure the zoom on one tab always stays the same as another. I
would like to have one change when the other does. I know about
ActiveWindow.Zoom, but I am unable to make them always be the same. I
have tried doing something on a worksheet event (change, activate,
etc), but can't get it to work.

Any suggestions?