GefRotateAnim.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 is rotated by the MaxAngle.

Example:

Sub GefRotateAnim_MaxExprValue()
    
    Dim oCimObj As GefObject
    Dim oCimRotateAnim As GefRotateAnim
    
    Set oCimObj = CimGetObject
    Set oCimRotateAnim = oCimObj.RotateAnim
    If Not oCimRotateAnim Is Nothing Then
        MsgBox "The max expression value is " & _
            oCimRotateAnim.MaxExprValue
    End If
    
End Sub