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