GefMoveAnim.VerticalAttrib (read-only property)

Gets the GefMoveAnimAttrib for the vertical move animation.

Syntax:

Set GefMoveAnimAttrib = object.VerticalAttrib

Description:

The VerticalAttrib property gets the attributes of the vertical move animation.

Example:

Sub GefMoveAnim_VerticalAttrib()

Dim oCimObj As GefObject

    Dim oCimMoveAnim As
GefMoveAnim

    Dim oCimMoveAnimAttrib As
GefMoveAnimAttrib

    Dim oCimExecCond As
GefExecutionCondition

Set oCimObj = CimGetObject

    Set oCimMoveAnim =
oCimObj.MoveAnim

    If Not oCimMoveAnim Is Nothing
Then

        Set
oCimMoveAnimAttrib = oCimMoveAnim.VerticalAttrib

        If Not
oCimMoveAnimAttrib Is Nothing Then

            Set
oCimExecCond = oCimMoveAnimAttrib.SliderActionCondition

            If
Not oCimExecCond Is Nothing Then

                MsgBox
"The expression is " & _

oCimExecCond.Expression

            End
If

        End
If

End If

End Sub