Sub Test() Dim sp As SubPath For Each sp In ActiveShape.Curve.Subpaths sp.AddNodeAt 0.5, cdrRelativeSegmentOffset Next spEnd Sub