Sub Test() With ActiveShape.Curve .Segments.All.SetType cdrCurveSegment .Nodes.All.SetType cdrSmoothNode End WithEnd Sub