SubPath.PositionX

Property PositionX As Double

The PositionX property returns or sets the horizontal position, or x-coordinate, of a subpath’s starting point, as if it were a separate shape object. The position is relative to a reference point specified by the Document.ReferencePoint property.

The following code example aligns all of the subpaths horizontally so that their left sides are 2 inches from the left edge of the page:

Sub Test() 
 Dim sp As SubPath 
 ActiveDocument.ReferencePoint = cdrTopLeft 
 For Each sp In ActiveShape.Curve.Subpaths 
  sp.PositionX = 2 
 Next sp 
End Sub