GefObject.RotateAnim (read-only property)

Gets the GefRotateAnim for the object.
Syntax: Set GefRotateAnim = object.RotateAnim
Description: The RotateAnim gets the GefRotateAnim for the object.


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 & """"
            MsgBox "The is no rotation animation for the selected object"
        End If
    End If
End Sub