GefTransparencyAnim.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 becomes visible to the Minimum Possible extent based on MinValue.
if MinValue is 0 object becomes completely invisible.


Sub TransparencyAnim_MinExprValue()
    Dim oCimObj As GefObject
    Dim oCimTransparencyAnim As GefTransparencyAnim
    Set oCimObj = CimGetObject
    Set oCimTransparencyAnim = oCimObj.TransparencyAnim
    If Not oCimTransparencyAnim Is Nothing Then
        oCimTransparencyAnim.MinValue = 0
        oCimTransparencyAnim.MaxValue = 100
        oCimTransparencyAnim.MinExprValue = 100
        oCimTransparencyAnim.MaxExprValue = 1000
        MsgBox "The current expression range for the transparency animation " & _
            "is " & oCimTransparencyAnim.MinExprValue & " to " & _
    End If
End Sub