GefTransparencyAnim.MaxValue (property)

Gets and sets the maximum value used in expression based animations.

Syntax:

VARIANT = object.MaxValue
object.MaxValue = VARIANT

Description:

This value sets maximum visibility level desired, when expression reaches maximum value.
maximum value for MaxValue is 100 (fully visible).

Example:

Sub TransparencyAnim_MaxValue()

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 range for the Transparency animation " & _

            "is
" & oCimTransparencyAnim.MinValue & " to " &
_

            oCimTransparencyAnim.MaxValue
    End If

End Sub