Find resolution of monitor that is the 2nd monitor

[chuckchuckit]

Following code finds the resolution of your monitor (the monitor they usually call monitor 1). But if you have a 2nd or 3rd monitor that is set to a different resolution, and Excel running this code is running in monitor 2 or 3, it still returns the resolution of the main monitor #1.

How can I find the resolution of the other monitors. Or at least just find the resolution from the monitor Excel is runnning on, when it is not in the main monitor?

Should I be making the current monitor being used, active somehow?

Option Explicit
Declare Function GetSystemMetrics32 Lib "User32" _
Alias "GetSystemMetrics" (ByVal nIndex&) As Long
 
Public Sub Test()
    MsgBox GetSystemMetrics32(0) & " x " & GetSystemMetrics32(1)
End Sub

Thanks.

Chuck

 

[AnAnalyst]

Try having a look at this post:

http://www.mrexcel.com/forum/showthread.php?t=333502

 

[chuckchuckit]

AnAnalyst,

Looks like from those links you found, the best way to determine the resolution of any additional monitor other than the main monitor is:

Using an API call to get your monitor handle number from the screen the instance of Excel is running in. Then through that handle number you can get enough information back about the screen to calculate the resolution.

Very helpful. Thanks as I was stumped.

Chuck