GefScreen.Height (property)

Gets and sets the height of the screen window in pixels.
Syntax: long = object.Height
object.Height = long
Description: The Height property gets and sets the height of the screen window in pixels.

Note: GefScreen.Height returns the height of the screen's window in pixels. GefScreen.Object.Height returns the size of the screen object in TWIPS regardless of the window size. Sub GefScreen_Height()
    
    Dim oCimScr As GefScreen
    Dim strMessage As String
    Set oCimScr = CimGetScreen
    
    strMessage = "The height of the screen window is " & oCimScr.Height & " pixels" & Chr$(10)
    strMessage = strMessage & "where the screen object has a height of " & oCimScr.Object.Height / 20 & " pts"
    MsgBox strMessage
    
End Sub