GefScaleAnimAttrib.MaxScaleFactor (property)

Gets and sets the maximum scale factor as a percent.
Syntax: VARIANT = object.MaxScaleFactor
object.MaxScaleFactor = VARIANT
Description: When the expression is at MaxExprValue, that is the scale factor that is used. When the expression is at MinExprValue a scale factor of 100% is used.


Sub GefScaleAnimAttrib_MaxScaleFactor()
    Dim oCimObj As GefObject
    Dim oCimScaleAnim As GefScaleAnim
    Dim oCimScaleAnimAttrib As GefScaleAnimAttrib
    Set oCimObj = CimGetObject
    Set oCimScaleAnim = oCimObj.ScaleAnim
    Set oCimScaleAnimAttrib = oCimScaleAnim.HorizontalAttrib
    MsgBox "The maximum scale factor for the horizontal scale animation is " & oCimScaleAnimAttrib.MaxScaleFactor
End Sub