GefMoveAnimAttrib.SliderAction (property)

Gets and sets whether the move animation has an associated slider action.
Syntax: GefTriStateEnum = object.SliderAction
object.SliderAction = GefTriStateEnum
Description: The SliderAction property gets and sets whether the move animation has an associated slider action.

Example:

Sub MoveAnimAttrib_SliderAction()
    
    Dim oCimObj As GefObject
    Dim oCimMoveAnim As GefMoveAnim
    Dim oCimMoveAnimAttrib As GefMoveAnimAttrib
    
    Set oCimObj = CimGetObject
    Set oCimMoveAnim = oCimObj.MoveAnim
    If Not oCimMoveAnim Is Nothing Then
        Set oCimMoveAnimAttrib = oCimMoveAnim.HorizontalAttrib
        If Not oCimMoveAnimAttrib Is Nothing Then
            Select Case oCimMoveAnimAttrib.SliderAction
                Case gefStateFalse
                    MsgBox "The object is not set to slide"
                Case gefStateMixed
                    MsgBox "The object is in an unknown state " & _
                        "or it is not set"
                Case gefStateTrue
                    MsgBox "The object is set to slide"
            End Select
        End If
    End If
    
End Sub