GefScaleAnim.HorizontalAttrib (read-only property)

Gets the GefScaleAnimAttrib for the horizontal scale animaion.
Syntax: Set GefScaleAnimAttrib = object.HorizontalAttrib
Description: The HorizontalAttrib property gets the GefScaleAnimAttrib for the horizontal move animaion.


Sub GefScaleAnim_HorizontalAttrib()
    Dim oCimObj As GefObject
    Dim oCimScaleAnim As GefScaleAnim
    Dim oCimScaleAnimAttrib As GefScaleAnimAttrib
    Set oCimObj = CimGetObject
    Set oCimScaleAnim = oCimObj.ScaleAnim
    Set oCimScaleAnimAttrib = oCimScaleAnim.HorizontalAttrib
    oCimScaleAnimAttrib.Anchor = gefScaleFromMiddle
    Select Case oCimScaleAnimAttrib.Anchor
        Case gefScaleAnchorMixedValue
            MsgBox "The anchor position is not currently known"
        Case gefScaleFromBottom
            MsgBox "The anchor position is the bottom"
        Case gefScaleFromLeft
            MsgBox "The anchor position is the left"
        Case gefScaleFromMiddle
            MsgBox "The anchor position is the middle"
        Case gefScaleFromRight
            MsgBox "The anchor position is the right"
        Case gefScaleFromTop
            MsgBox "The anchor position is the top"
    End Select
End Sub