GefRotateAnim (object)

Represents the attributes of rotation animation on an object.
Description: Represents the attributes of rotation animation on an object.

Example:

Sub GefObject_RotateAnim()
    
    Dim oCimObj As GefObject
    Dim oCimRotateAnim As GefRotateAnim
    
    Set oCimObj = CimGetObject
    Set oCimRotateAnim = oCimObj.RotateAnim
    If Not oCimRotateAnim Is Nothing Then
        If oCimRotateAnim.Expression <> "" Then
            MsgBox "The expression for the rotation animation " & _
               "is " & """" & oCimRotateAnim.Expression & """"
        Else
            MsgBox "The is no rotation animation for the selected " & _
               "object"
        End If
    End If
    
End Sub
Properties: Application , CenterXOffset , CenterYOffset , Expression , MaxAngle , MaxExprValue , MinAngle , MinExprValue , Parent
Methods: