GefObject.MoveAnim (read-only property)

Gets the GefMoveAnim for the object.
Syntax: Set GefMoveAnim = object.MoveAnim
Description: Returns Nothing if this property is not valid for the object.


Sub GefObject_MoveAnim()
    Dim oCimObj As GefObject
    Dim oCimMoveAnim As GefMoveAnim
    Set oCimObj = CimGetObject
    Set oCimMoveAnim = oCimObj.MoveAnim
    If Not oCimMoveAnim Is Nothing Then
        MsgBox "The object supports move animation"
        MsgBox "The object does not support move animation"
    End If
End Sub