GefScaleAnim.VerticalAttrib (read-only property)

Gets the GefScaleAnimAttrib for the vertical scale animation.
Syntax: Set GefScaleAnimAttrib = object.VerticalAttrib
Description: The VerticalAttrib property Gets the GefScaleAnimAttrib for the vertical move animation.


Sub GefScaleAnim_VerticalAttribAttrib()
    Dim oCimObj As GefObject
    Dim oCimScaleAnim As GefScaleAnim
    Dim oCimScaleAnimAttrib As GefScaleAnimAttrib
    Set oCimObj = CimGetObject
    Set oCimScaleAnim = oCimObj.ScaleAnim
    Set oCimScaleAnimAttrib = oCimScaleAnim.VerticalAttrib
    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