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: |