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