GefScaleAnimAttrib.Anchor (property)

Gets and sets the anchor position for scale animation as a GefScaleAnimAnchorEnum.
Syntax: GefScaleAnimAnchorEnum = object.Anchor
object.Anchor = GefScaleAnimAnchorEnum
Description: The Anchor property gets and sets the anchor position.


Sub GefScaleAnimAttrib_Anchor()
    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