Zoom to the specified rectangle | |
Syntax: | object.ZoomToRectangle top, left, bottom, right |
Parameters: |
top As
long -
left As
long -
bottom As
long -
right As
long -
|
Description: | Zooms to the rectangle specified by the given
points Examples Sub GefScreen_ZoomToRectangle() Dim oCimScr As GefScreen Set oCimScr = CimGetScreen oCimStr.ZoomToRectangle
10,10,50,50 End Sub |