Sub Test() Dim nr As NodeRange Set nr = ActiveShape.Curve.Subpaths(1).Nodes.All nr.AddRange ActiveShape.Curve.Subpaths(2).Nodes.All nr.SetType cdrSmoothNodeEnd Sub