SubPath.PositionY

Property PositionY As Double

The PositionY property returns or sets the vertical position, or y-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 vertically so that their top sides are 3 document units from the bottom of the page:

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