Gets the GefMoveAnim for the object. | |
Syntax: | Set GefMoveAnim = object.MoveAnim |
Description: | Returns Nothing if this property is not
valid for the object. Example: 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" Else MsgBox "The
object does not support move animation" End If End Sub |