GefScaleAnimAttrib.IsHorizontal (read-only property)

Gets whether these attributes apply to the horizontal move or scale animation.

Syntax:

Boolean = object.IsHorizontal

Description:

The IsHorizontal property gets whether these attributes apply to the horizontal move or scale animation.

Example:

Sub ScaleAnimAttrib_Type(ByRef oCimScaleAnimAttrib As
GefScaleAnimAttrib)

    Dim nMax As Long
    Dim oCimScr As GefScreen

    Set oCimScr = CimGetScreen

    If oCimScaleAnimAttrib.IsHorizontal =
True Then

        oCimScaleAnimAttrib.Anchor
= gefScaleFromRight

End If

    If oCimScaleAnimAttrib.IsVertical =
True Then

        oCimScaleAnimAttrib.Anchor
= gefScaleFromTop

    End If

End Sub

Sub GefScaleAnimAttrib_IsHorizontal()

    Dim oCimObj As GefObject

    Dim oCimScaleAnim As
GefScaleAnim

Set oCimObj = CimGetObject

    Set oCimScaleAnim =
oCimObj.ScaleAnim

    Call
ScaleAnimAttrib_Type(oCimScaleAnim.HorizontalAttrib)

    Call
ScaleAnimAttrib_Type(oCimScaleAnim.VerticalAttrib)

End Sub