Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Zoom Window Selection Possible?
I have made a budgeting system that contains 20 sheets. When the workbook is opened It cycles though each sheet to collect Current data already on each sheet. The probelm I have run into is that depending on the size of the monitor the workbook is opened with, manual zooming is required to get all of the sheet info into the viewable area. (Biggest issue is Desktop verse Lap top) Does anyone know a way to have each sheet auto zoom to fit each sheet to the screen? Something like Range(cells(1,1),cells(1,20)).zoom to fit viewable window. Thanks! |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Zoom Window Selection Possible?
Thanks, I was able to adapt that code to suit my needs and it works great. While testing it I did notice one problem. Since I have so many Sheet tabs and the sheets will be auto fit to viewable area, I have disabled the Horizonal Scroll bar. If I zoom really close up to a few cells and save it, when it re-opens it does zoom to the correct size; however, it does not move the horiznal scroll bar all the way to the left as it should be. With no horizonal scroll bar avaible, the user has no way to move the horizonal scroll bar back to the left most posistion. (Does that make sence?) Know of any code to move the horizonal scroll bar all the way to the left? On Tue, 26 Dec 2006 13:24:12 -0600, Dave Peterson wrote: Option Explicit Sub auto_Open() Dim wks As Worksheet For Each wks In ActiveWorkbook.Worksheets wks.Select wks.Range("A1:T1").Select ActiveWindow.Zoom = True wks.Range("a1").Select 'move the cursor back to A1?? Next wks worksheets("sheet1").select 'what sheet to start??? End Sub None wrote: I have made a budgeting system that contains 20 sheets. When the workbook is opened It cycles though each sheet to collect Current data already on each sheet. The probelm I have run into is that depending on the size of the monitor the workbook is opened with, manual zooming is required to get all of the sheet info into the viewable area. (Biggest issue is Desktop verse Lap top) Does anyone know a way to have each sheet auto zoom to fit each sheet to the screen? Something like Range(cells(1,1),cells(1,20)).zoom to fit viewable window. Thanks! |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Zoom Window Selection Possible?
Option Explicit
Sub auto_Open() Dim wks As Worksheet For Each wks In ActiveWorkbook.Worksheets wks.Select wks.Range("A1:T1").Select ActiveWindow.Zoom = True wks.Range("a1").Select 'move the cursor back to A1?? Next wks worksheets("sheet1").select 'what sheet to start??? End Sub None wrote: I have made a budgeting system that contains 20 sheets. When the workbook is opened It cycles though each sheet to collect Current data already on each sheet. The probelm I have run into is that depending on the size of the monitor the workbook is opened with, manual zooming is required to get all of the sheet info into the viewable area. (Biggest issue is Desktop verse Lap top) Does anyone know a way to have each sheet auto zoom to fit each sheet to the screen? Something like Range(cells(1,1),cells(1,20)).zoom to fit viewable window. Thanks! -- Dave Peterson |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Zoom Window Selection Possible?
I would have guessed that selecting A1 would have avoided that problem.
Any chance that that was lost in your modified code? None wrote: Thanks, I was able to adapt that code to suit my needs and it works great. While testing it I did notice one problem. Since I have so many Sheet tabs and the sheets will be auto fit to viewable area, I have disabled the Horizonal Scroll bar. If I zoom really close up to a few cells and save it, when it re-opens it does zoom to the correct size; however, it does not move the horiznal scroll bar all the way to the left as it should be. With no horizonal scroll bar avaible, the user has no way to move the horizonal scroll bar back to the left most posistion. (Does that make sence?) Know of any code to move the horizonal scroll bar all the way to the left? On Tue, 26 Dec 2006 13:24:12 -0600, Dave Peterson wrote: Option Explicit Sub auto_Open() Dim wks As Worksheet For Each wks In ActiveWorkbook.Worksheets wks.Select wks.Range("A1:T1").Select ActiveWindow.Zoom = True wks.Range("a1").Select 'move the cursor back to A1?? Next wks worksheets("sheet1").select 'what sheet to start??? End Sub None wrote: I have made a budgeting system that contains 20 sheets. When the workbook is opened It cycles though each sheet to collect Current data already on each sheet. The probelm I have run into is that depending on the size of the monitor the workbook is opened with, manual zooming is required to get all of the sheet info into the viewable area. (Biggest issue is Desktop verse Lap top) Does anyone know a way to have each sheet auto zoom to fit each sheet to the screen? Something like Range(cells(1,1),cells(1,20)).zoom to fit viewable window. Thanks! -- Dave Peterson |
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) | |||
Excel Window zoom | Excel Programming | |||
Position Form on screen v Window Zoom ! | Excel Programming | |||
Excel Window Zoom Problems | Excel Programming | |||
Zoom on selection | Excel Programming |