Shape.SetPosition

Sub SetPosition(PositionX As Double, PositionY As Double)

Member of Shape

The SetPosition method moves the shape to a given position on the page. The specified coordinates of the new position are relative to the shape’s reference point, as specified by the Document.ReferencePoint property.


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

The following code example sets the current position of each shape on the page to the bottom-left corner of the page:

Sub Test() 
 Dim s As Shape 
 Dim x As Double, y As Double 
 For Each s In ActivePage.Shapes 
  s.SetPosition 0, 0 
 Next s 
End Sub