GefTransparencyAnim.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 becomes visible to the Maximum Possible extent based on MaxValue.
if MaxValue is 100 object becomes fully visible on reaching maximum value.


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