GefImageFormat.LockAspectRatio (property)

Preserve or Do not Preserve the AspectRatio
Syntax: Boolean = object.LockAspectRatio
object.LockAspectRatio = Boolean
Description:

AspectRatio will be preserved based on this property.

Example:

Sub GefImageFormat_LockAspectRatio()
    
    Dim oCimObj As GefObject
    Dim oCimImageFmt As GefImageFormat
    
    Set oCimObj = CimGetObject
    Set oCimImageFmt = oCimObj.ImageFormat
    If Not oCimImageFmt Is Nothing Then
         oCimImageFmt.LockAspectRatio = True 'Preserve Aspect Ratio
         CimGetScreen.Refresh False
    End If
    
End Sub