GefRotateAnim.MaxAngle (property)

Gets and sets maximum angle of rotation in radians.
Syntax: VARIANT = object.MaxAngle
object.MaxAngle = VARIANT
Description: This is the angle the object will be rotated when the expression is at MaxExprValue.


Sub GefRotateAnim_MaxAngle()
    Dim oCimObj As GefObject
    Dim oCimRotateAnim As GefRotateAnim
    Set oCimObj = CimGetObject
    Set oCimRotateAnim = oCimObj.RotateAnim
    If Not oCimRotateAnim Is Nothing Then
        MsgBox "The maximum angle for the rotation is " & _
            oCimRotateAnim.MaxAngle & " radians"
    End If
End Sub