GefRotateAnim.Expression (property)

Gets and sets the string used as an expression.

Syntax:

VARIANT = object.Expression
object.Expression = VARIANT

Description:

The Expression property gets and sets the string used as an expression.

Example:

Sub GefRotateAnim_Expression()

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