Resolution change

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hi all,

I have a macro (zoomin) to change size of wsheet depending of my screen
resolution:

Notebook or larger LCD

Is there a way to call the macro when wsheet Open to adjust to the screen
resolution?

Thanks for any help,
Emilio
 
Thanks for your response, but my code writing is not good at all.

What can I enter in the Open event to run something like:


If Resolution=1024x768 then

runmacro "ZoomIn"

Thanks,
Emilio
 
I wouldn't.

I would do something like

thisworkbook.Worksheets("Sheet1").Select
ActiveSheet.Range("A1:Z26").Select
ActiveWindow.Zoom = True
Activesheet.Range("A1").Select

the setting is for the activesheet, not other sheets in the workbook - you
would have to do each sheet if that is required or use the same zoom setting
as you get from the above

lngVal = ActiveWindow.Zoom

Of course you would have to play with the selected range to get the best
results. That was just an example.
 
Back
Top