Gets and sets the current zoom factor of the screen. | |
Syntax: | long = object.Zoom object.Zoom = long |
Description: | A zoom of zero indicates zoom to best fit. Example: Sub GefScreen_Zoom() Dim oCimScr As GefScreen Set oCimScr = CimGetScreen oCimScr.Zoom = 50 MsgBox "The zoom is now " &
oCimScr.Zoom & "%" End Sub |