| Gets the GefRotateAnim for the object. | |
| Syntax: | Set GefRotateAnim = object.RotateAnim |
| Description: | The RotateAnim gets the GefRotateAnim for
the 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 |