Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Setting zoom for all worksheet pages
One way.
Choose one of the sheets as a base. Assuming that this is Sheet(1) and the displayed columns are "G:K", then, with the sheet selected, call the following sub. Sub ZoomSheets() Application.EnableEvents = False Dim Zm, Sh As Worksheet Range("G1:K1").Select ActiveWindow.Zoom = True Zm = ActiveWindow.Zoom For Each Sh In Worksheets Sh.Activate ActiveWindow.Zoom = Zm Next Sh Sheets(1).Activate Application.EnableEvents = True End Sub Ensure that the displayed columns fill the width of the screen as accurately as you can. I normally call the sub from the WorkBook Open code. Regards, Don Lloyd "David Crane" wrote in message ... I have built a mutipage management reporting package, but have run into one problem I don't know how to fix. I have designed all information views to fit on one screen, and to require no scrolling. Unfortunately, not all of my users can see the same amount of information on their screens as I do. Since I do not expect that they will want to use Zoom on each page, I am trying to figure out how to write a macro that will allow the user to fill in a Zoom percentage on a screen I design, check to see that the appropriate range is displayed, and then adjust the views on all pages accordingly. I have figured out how to do this one page at a time, but wonder if there is a way to do this to the entire workbook. Any help will be greatly appreciated. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Setting zoom for all worksheet pages
Thanks to all three of you. You are helping me solve a problem that was
driving me nuts. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Setting the zoom size of a new window from 100% to 75% | Excel Discussion (Misc queries) | |||
Setting Default Zoom | Excel Discussion (Misc queries) | |||
setting of screen zoom in excel | Excel Discussion (Misc queries) | |||
Setting zoom for all worksheet pages | Excel Programming | |||
Setting zoom for all worksheet pages | Excel Programming |