GefMoveAnim.HorizontalAttrib (read-only property)

Gets the GefMoveAnimAttrib for the horizontal move animation.

Syntax:

Set GefMoveAnimAttrib = object.HorizontalAttrib

Description:

The HorizontalAttrib property gets the attributes of the horizontal move animation.

Example:

Sub GefMoveAnim_HorizontalAttrib()

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.HorizontalAttrib

        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