Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
whr whr is offline
external usenet poster
 
Posts: 1
Default How to control the zoom between two pages

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?
  #2   Report Post  
Posted to microsoft.public.excel.programming
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?
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
Number of pages in worksheet doesn't match Print Preview pages delru Excel Discussion (Misc queries) 2 May 10th 10 10:08 PM
Please help! Print Preview Zoom is Grayed Out...Doesn't zoom. PK Excel Discussion (Misc queries) 0 July 20th 09 03:33 PM
Setting zoom for all worksheet pages don lloyd Excel Programming 1 July 17th 03 01:40 AM
Setting zoom for all worksheet pages skmr3 Excel Programming 0 July 15th 03 02:53 AM
Setting zoom for all worksheet pages Paul B[_6_] Excel Programming 0 July 15th 03 02:45 AM


All times are GMT +1. The time now is 05:44 PM.

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

About Us

"It's about Microsoft Excel"