Sub Test() Dim seg As Segment Set seg = ActiveShape.Curve.Subpaths(1).GetSegmentAt(0.5, cdrRelativeSegmentOffset) seg.Type = cdrLineSegmentEnd Sub