GefFillAnim.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 filled to 100%.


Sub FillAnim_MaxExprValue()
    Dim oCimObj As GefObject
    Dim oCimFillAnim As GefFillAnim
    Set oCimObj = CimGetObject
    Set oCimFillAnim = oCimObj.FillAnim
    If Not oCimFillAnim Is Nothing Then
        oCimFillAnim.MinExprValue = 100
        oCimFillAnim.MaxExprValue = 1000
        MsgBox "The current range for the fill animation " & _
            "is " & oCimFillAnim.MinExprValue & " to " & _
    End If
End Sub