Setting zoom for all worksheet pages
David, see if this will help
Sub Set_zoom() Application.ScreenUpdating = False Set A = ActiveSheet For Each Sheet In ThisWorkbook.Worksheets Sheet.Activate ActiveWindow.Zoom = 90 Next Sheet A.Activate Application.ScreenUpdating = True End Sub -- Paul B Always backup your data before trying something new Using Excel 2000 & 97 Please post any response to the newsgroups so others can benefit from it ** remove news from my email address to reply by email ** "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. |
All times are GMT +1. The time now is 09:09 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com