GefMoveAnimAttrib.IsVertical (read-only property)

Gets whether these attributes apply to the vertical move animation.
Syntax: Boolean = object.IsVertical
Description: The IsVertical property identifies if there is a vertical move animation.


Function MoveAnimAttrib_Type(ByRef oCimMoveAnimAttrib As GefMoveAnimAttrib)
    Dim nMax As Long
    Dim oCimScr As GefScreen
    Set oCimScr = CimGetScreen
    If oCimMoveAnimAttrib.IsHorizontal = True Then
        nMax = oCimScr.Height - 100 * 20
    End If
    If oCimMoveAnimAttrib.IsVertical = True Then
        nMax = oCimScr.Width - 100 * 20
    End If
    oCimMoveAnimAttrib.MaxTranslation = nMax
End Function
Sub MoveAnimAttrib()
    Dim oCimObj As GefObject
    Dim oCimMoveAnim As GefMoveAnim
    Set oCimObj = CimGetObject
    Set oCimMoveAnim = oCimObj.MoveAnim
    Call MoveAnimAttrib_Type(oCimMoveAnim.VerticalAttrib)
End Sub