Is it possible to detect a user’s screen resolution and automatically open a sheet with a particular view %. For example, if screen resolution is 600×800, the workbook will adjust the view to 100, if it is 1024X768, it will open under 200% view.
![]() |
Patch reliability is unclear. Unless you have an immediate, pressing need to install a specific patch, don't do it. |
SIGN IN | Not a member? | REGISTER | PLUS MEMBERSHIP |
-
Detect Screen Resolution & Change View % (Excel 2002)
Home » Forums » AskWoody support » Productivity software by function » MS Excel and spreadsheet help » Detect Screen Resolution & Change View % (Excel 2002)
- This topic has 6 replies, 3 voices, and was last updated 20 years, 8 months ago.
Viewing 3 reply threadsAuthorReplies-
WSpieterse
AskWoody LoungerSeptember 30, 2004 at 5:45 am #883175Try this piece of code:
Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long Public Const SM_CXSCREEN = 0 Public Const SM_CYSCREEN = 1 'Insert this code to your form: Private Sub test() Dim Tmp As String Tmp = GetSystemMetrics(SM_CXSCREEN) & _ "x" & GetSystemMetrics(SM_CYSCREEN) MsgBox (Tmp) End Sub
-
WSpieterse
AskWoody LoungerSeptember 30, 2004 at 5:45 am #883176Try this piece of code:
Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long Public Const SM_CXSCREEN = 0 Public Const SM_CYSCREEN = 1 'Insert this code to your form: Private Sub test() Dim Tmp As String Tmp = GetSystemMetrics(SM_CXSCREEN) & _ "x" & GetSystemMetrics(SM_CYSCREEN) MsgBox (Tmp) End Sub
-
WSroger.crawley
AskWoody LoungerSeptember 30, 2004 at 8:38 am #883231I often change the view settings within my code. To do this I will select the range I want to be visible on screen and the set the Zoom property of ActiveWindow to True. This then adjusts the zoom % so that all of the selected range is visible on screen. This works fine for me as I mostly work in maximised windows, however, if this code is run in a Normal window it will adjust the zoom settings to suit the window size at that time, if you then maximise the window the zoom will not be at an optimum level.
I have attached a simple example of how I would use this approach to resize the view for Height, Width and Range.
Hope this helps,
WSroger.crawley
AskWoody LoungerSeptember 30, 2004 at 8:38 am #883232I often change the view settings within my code. To do this I will select the range I want to be visible on screen and the set the Zoom property of ActiveWindow to True. This then adjusts the zoom % so that all of the selected range is visible on screen. This works fine for me as I mostly work in maximised windows, however, if this code is run in a Normal window it will adjust the zoom settings to suit the window size at that time, if you then maximise the window the zoom will not be at an optimum level.
I have attached a simple example of how I would use this approach to resize the view for Height, Width and Range.
Hope this helps,
Viewing 3 reply threads -

Plus Membership
Donations from Plus members keep this site going. You can identify the people who support AskWoody by the Plus badge on their avatars.
AskWoody Plus members not only get access to all of the contents of this site -- including Susan Bradley's frequently updated Patch Watch listing -- they also receive weekly AskWoody Plus Newsletters (formerly Windows Secrets Newsletter) and AskWoody Plus Alerts, emails when there are important breaking developments.
Get Plus!
Welcome to our unique respite from the madness.
It's easy to post questions about Windows 11, Windows 10, Win8.1, Win7, Surface, Office, or browse through our Forums. Post anonymously or register for greater privileges. Keep it civil, please: Decorous Lounge rules strictly enforced. Questions? Contact Customer Support.
Search Newsletters
Search Forums
View the Forum
Search for Topics
Recent Topics
-
Windows 10/11 clock app
by
Kathy Stevens
1 minute ago -
Turn off right-click draw
by
Charles Billow
1 hour, 33 minutes ago -
Introducing ChromeOS M137 to The Stable Channel
by
Alex5723
5 hours, 4 minutes ago -
Brian Wilson (The Beach Boys) R.I.P
by
Alex5723
6 hours, 15 minutes ago -
Master patch listing for June 10, 2025
by
Susan Bradley
6 hours, 40 minutes ago -
Suggestions for New All in One Printer and a Photo Printer Windows 10
by
Win7and10
12 hours, 38 minutes ago -
Purchasing New Printer. Uninstall old Printer Software First?
by
Win7and10
12 hours, 42 minutes ago -
KB5060842 Issue (Minor)
by
AC641
17 hours, 15 minutes ago -
EchoLeak : Zero Click M365 Copilot leak sensitive information
by
Alex5723
19 hours, 48 minutes ago -
24H2 may not be offered June updates
by
Susan Bradley
2 hours, 11 minutes ago -
Acronis : Tracking Chaos RAT’s evolution (Windows, Linux)
by
Alex5723
1 day, 8 hours ago -
June 2025 updates are out
by
Susan Bradley
8 hours, 28 minutes ago -
Mozilla shutting Deep Fake Detector
by
Alex5723
1 day, 23 hours ago -
Windows-Maintenance-Tool (.bat)
by
Alex5723
1 day, 8 hours ago -
Windows 11 Insider Preview build 26200.5641 released to DEV
by
joep517
2 days, 1 hour ago -
Windows 11 Insider Preview build 26120.4250 (24H2) released to BETA
by
joep517
2 days, 1 hour ago -
Install Office 365 Outlook classic on new Win11 machine
by
WSrcull999
2 days, 1 hour ago -
win 10 to win 11 with cpu/mb replacement
by
aquatarkus
1 day, 17 hours ago -
re-install Windows Security
by
CWBillow
2 days, 4 hours ago -
WWDC 2025 Recap: All of Apple’s NEW Features in 10 Minutes!
by
Alex5723
2 days, 8 hours ago -
macOS Tahoe 26
by
Alex5723
2 days, 2 hours ago -
Migrating from win10 to win11, instructions coming?
by
astro46
13 hours, 58 minutes ago -
Device Eligibility for Apple 2026 Operating Systems due this Fall
by
PKCano
1 day, 17 hours ago -
Recommended watching : Mountainhead movie
by
Alex5723
1 day, 18 hours ago -
End of support for Windows 10
by
Old enough to know better
1 day, 1 hour ago -
What goes on inside an LLM
by
Michael Covington
1 day, 12 hours ago -
The risk of remote access
by
Susan Bradley
7 hours, 55 minutes ago -
The cruelest month for many Office users
by
Peter Deegan
20 hours, 8 minutes ago -
Tracking protection and trade-offs in Edge
by
Mary Branscombe
1 day, 22 hours ago -
Supreme Court grants DOGE access to confidential Social Security records
by
Alex5723
3 days, 7 hours ago
Recent blog posts
Key Links
Want to Advertise in the free newsletter? How about a gift subscription in honor of a birthday? Send an email to sb@askwoody.com to ask how.
Mastodon profile for DefConPatch
Mastodon profile for AskWoody
Home • About • FAQ • Posts & Privacy • Forums • My Account
Register • Free Newsletter • Plus Membership • Gift Certificates • MS-DEFCON Alerts
Copyright ©2004-2025 by AskWoody Tech LLC. All Rights Reserved.