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 |