ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Resolution change (https://www.excelbanter.com/excel-programming/326421-resolution-change.html)

Wind54Surfer

Resolution change
 
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

Tom Ogilvy

Resolution change
 
You could use the workbook_Open event

See Chip Pearson's page on Events:
http://www.cpearson.com/excel/events.htm

--
Regards,
Tom Ogilvy

"Wind54Surfer" wrote in message
...
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




Wind54Surfer

Resolution change
 
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

"Tom Ogilvy" wrote:

You could use the workbook_Open event

See Chip Pearson's page on Events:
http://www.cpearson.com/excel/events.htm

--
Regards,
Tom Ogilvy

"Wind54Surfer" wrote in message
...
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





Tom Ogilvy

Resolution change
 
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.

--
Regards,
Tom Ogilvy


"Wind54Surfer" wrote in message
...
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

"Tom Ogilvy" wrote:

You could use the workbook_Open event

See Chip Pearson's page on Events:
http://www.cpearson.com/excel/events.htm

--
Regards,
Tom Ogilvy

"Wind54Surfer" wrote in message
...
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








All times are GMT +1. The time now is 12:58 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com