GefFillAnim.MinExprValue (property)

Gets and sets the minimum value used in expression based animations.
Syntax: VARIANT = object.MinExprValue
object.MinExprValue = VARIANT
Description: In expression based animations, when the expression reaches this minimum value, the object is filled to 0%.


Sub FillAnim_MinExprValue()
    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