Ellipse.SetCenterPosition

Object Model Reference : Classes : E : Ellipse : Methods : Ellipse.SetCenterPosition

Ellipse.SetCenterPosition

Sub SetCenterPosition(PositionX As Double, PositionY As Double)

Description

The SetCenterPosition method moves the ellipse so that its center is located at given coordinates. Using SetCenterPosition is equivalent to setting the values of both CenterX and CenterY properties at the same time.


Parameter	Description
PositionX	Specifies the x-coordinate for the center of an ellipse, measured in document units
PositionY	Specifies the y-coordinate for the center of an ellipse, measured in document units

VBA example

The following VBA example increases the radius of the ellipse both horizontally and vertically by 2". Changing the radius of an ellipse causes its center to move. To preserve the center position of the ellipse, the GetCenterPosition and SetCenterPosition methods are used.

Sub Test()

Dim x As Double, y As Double

Dim rx As Double, ry As Double

With ActiveShape.Ellipse

.GetCenterPosition x, y

.GetRadius rx, ry

.SetRadius rx + 2, ry + 2

.SetCenterPosition x, y

End With

End Sub