Shape.GetPosition

Sub GetPosition(PositionX As Double, PositionY As Double)

Member of Shape

The GetPosition method returns the coordinates of the point on the shape specified by the Document.ReferencePoint property of the Document object.

See also the PositionX and PositionY properties of the Shape object.


Parameters	Description
PositionX	Returns the horizontal position of the shape object, in document units
PositionY	Returns the vertical position of the shape object, in document units

The following code example creates a small circle in the center of each shape on the page:

Sub Test() 
 Dim x As Double, y As Double 
 Dim s As Shape 
 ActiveDocument.ReferencePoint = cdrCenter 
 For Each s In ActivePage.Shapes 
  s.GetPosition x, y 
  ActiveLayer.CreateEllipse2 x, y, 0.03 
 Next s 
End Sub