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 |