ScreenRes

Reads screen resolution, using IE this time, this one will get the active Screen resolution in format of wXh

Function ScreenRes()
 Set IE = CreateObject("internetexplorer.application")
 IE.fullscreen = True
 intWidth = IE.Width
 intHeight = IE.Height
 IE.Quit
 ScreenRes = intWidth & "X" & intHeight
End Function

Views 2821 Downloads 929


ANmarAmdeen
612
UI VBA
Revisions

v1.0