ZoomToFit Method Example

By default, Zoom to Fit is enabled for Run mode for all pictures with Enhanced Coordinates enabled. The following example shows how to disable this "Zoom to Fit” for a picture. In this example, the picture initialization code sets "ME.ZoomToFit False." Then, it sets the Zoom factor to 1 (100%) with the “ME.Zoom = 1” line:

Private Sub CFixPicture_Initialize()

Me.ZoomToFit False

Me.Zoom = 1

End Sub

NOTE: For more information on Enhanced Coordinates, refer to the Picture Coordinate Systems topic in the Creating Pictures e-book.