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.


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 " & _
    End If
End Sub