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.

Example:

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 " &
_

            oCimTransparencyAnim.MaxExprValue
    End If

End Sub