GefScaleAnimAttrib.MaxExprValue (property)

Gets and sets the maximum value used in expression based animations.
Syntax: VARIANT = object.MaxExprValue
object.MaxExprValue = VARIANT
Description: In expression based animations, when the expression reaches this maximum value, the object is scaled by the MaxScaleFactor.


Sub GefScaleAnimAttrib_MaxExprValue()
    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 expression value for the horizontal scale animation is " & oCimScaleAnimAttrib.MaxExprValue
End Sub