Adjusting Screen Resolution Directly At Workbook Startup

Hi everyone,

I have the following code to check Screen Resolution at workbook startup and change it directly to 1024 X 768 if it is not.

In addition to that, at workbook startup, I want to save the original Screen Resolution in the memory in order to reset Screen Resolution to it original setting before closing the program.

For that purpose I made some changes to the code (My changes work perfectly at workbook startup), but before closing the program, I receive a Compile error message says that (ByRef argument type mismatch),

Here is main code:
Option Explicit

Please Login or Register  to view this content.

Please Login or Register  to view this content.

And here is Workbook Open and Before Closing codes:

Please Login or Register  to view this content.

Please Login or Register  to view this content.

An other problem is that when the original Screen Resolution is 800 X 600, and after it is changed by the previous code to 1024 X 768, the workbook window is minimized and it is maximized automaticcly even after using the following line with Workbook_Open code:

Application.WindowState = xlMaximized

Can you please find me a solution for that and tell my what is wrong with my code?

Thanks a lot,

MyA and MyB are locally declared in the Close event, and therefore always zero (and Longs are never equal to a null string).

If you want to retain values, declare them at the top of the module outside of any procedures.

If your code changed my screen resolution, it would have made its last appearance on my computer ...

Hello LoveCandle,

Not all monitors support all resolution settings. There is a note in the code about this, albeit incomplete. API code can change from one version of Windows to other. If you plan to run this on multiple platforms, and distribute the code, you should add code to check the Windows version the code is running on before attempting to change any settings.

You may also run into problems running this if the computer has firewalls and/or anti-virus software. It may see the code as antagonistic. Unless you are an experienced programmer who is comfortable with low level language programming and interfacing, don't attempt to change the registry settings using the API. You can seriously damage your or someone else's computer.

Originally Posted by Obfuscated

I have been reading many of these entries concerning screen resolution and have a question for "shg".

He/She said "If your code changed my screen resolution, it would have made its last appearance on my computer ...". I was wondering why?

If my code changed it to display the workbook in a format that it looks best / needs... and then changes it back to the original settings, why the concern?

There's lways the chance that such cod, also code that hides Toolbars, etc, may not actually reverse at the end. This is more than annoying to users & really should be avoided

If all you use is that application then not so bad. Although I too would be put off by something that messed with my settings to that extent.

What about all the other applications running on the pc. You will effect there size. Either making the windows too small or worse bigger, if the screen resolution is already higher.
How about somebody with eyesight such that they running their monitor at lower resolution?

Better to build your UI for a more conservative screen setting.