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