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 622 Downloads 223

'Screen resolution', 'wxh', 'active', 'desktop', 'windows', 'internet explorer', 'IE'

ANmarAmdeen
326
UI VBA
Revisions

v1.0