Detect Screen Resolution & Change View % (Excel 2002)

Topic

New Reply

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.

Reply | Quote

Replies

Try 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

Reply | Quote

Try 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

Reply | Quote

I 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,

Reply | Quote

Works great, thanks !

Reply | Quote

Works great, thanks !

Reply | Quote

I 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,

Reply | Quote