Excel screen resolution query

[Jeff Smith]

Hi,
Two colleagues and I work on one "master" spreadsheet with all of our
company products listing. Only one person at a tiime uses it.
I prefer high screen resolution 1024 x 768 whereas my colleagues prefer the
800 x 600?.

My spreadsheet is designed to fit the whole screen and rather than leaving
different zoom settings, I wonder if it is possible for a macro for a VBA
routine to detect the screen resolution and automatically select the
appropriate zoom (can define). Any assistance here would be greatly
appreciated.

Thanks in anticipation of any kind help.

Jeff Smith

 

[Orlando Magalhães Filho]

Your welcome.

Orlando Magalhães Filho

Thankyou very much for this quick (and no doubt effective solution & reply).
I will add this. Many thanks.

 

[Jeff Smith]

Thankyou very much for this quick (and no doubt effective solution & reply).
I will add this. Many thanks.

 

[Harald Staff]

Hi Jeff

A slightly different approach: This fills the/an Excel window with columns A:K no matter
which screen resolution used, no matter if the window is maximized or not:

Sub Test()
Columns("A:K").Select
ActiveWindow.Zoom = True
Range("A1").Select
End Sub

 

[Jeff Smith]

Hi, I have inserted this macro into a module and run the macro "adjust
zoom".
The maco "hangs up" on this statement:

Application.WorksheetFunction.Clean(GetRegValue(HKEY_LOCAL_MACHINE, _
"Config\0001\Display\Settings", "Resolution"))

I'm wondering if I should have placed all the code above the macro proper
(declarations etc) somewhere else? Auto_open macro or something?

If you can see where I've gone wrong.....

sincerely

Jeff Smith

 

[Jeff Smith]

Harald,
Thank you for this. I can see many applications for this small macro. I
have added it to the macros and it works fine.

I am very impressed with all the expert users who take the time to share
their experience and knowledge with others less skilled. Thank you.

sincerely

Jeff Smith

 

[Harald Staff]

Harald,
Thank you for this. I can see many applications for this small macro. I
have added it to the macros and it works fine.

Hi Jeff. you're welcome

I am very impressed with all the expert users who take the time to share
their experience and knowledge with others less skilled. Thank you.

This is a phenomenon that I talk about for hours whenever I get the chance. One thing is
"peace, love and everything for free" which works perfect here. Another thing is that
I/you as a person learn tons of stuff being here. And there's the communist idea "provide
what you can, receive what you need" thing. But the capitalist logic is fullfilled too;
There are times where I'm totally stuck on a database problem or similar. I ask someone in
a newsgroup like this or find something on a free website which solves my problem, and pay
back with a couple of hours of spreadsheet solutions. Everyone wins, I love it and,
luckily, so does my boss.

Best wishes Harald
Excel MVP

Followup to newsgroup only please.