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