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