get screen resolution

[Craig]

I would like to be able to position my forms and adjust the zoom in relation
to the users screen resolution. I've seen several visual basic code samples
that get the dimensions of the windows desktop in order to calculate the
screen size but none work with VBA. Is it possible within the limitations of
Excel (2002)?

 

[Chip Pearson]

Craig,

You can use the GetSystemMetrics API function to return the
screen size.


Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As
Long) As Long

Sub AAA()
Debug.Print GetSystemMetrics(0&)
Debug.Print GetSystemMetrics(1&)
End Sub



--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

 

[Craig]

Thanks!! It was so easy and simple.

Craig,

You can use the GetSystemMetrics API function to return the
screen size.


Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As
Long) As Long

Sub AAA()
Debug.Print GetSystemMetrics(0&)
Debug.Print GetSystemMetrics(1&)
End Sub



--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com