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. Example: 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 |