Sub Test() Dim n As Node For Each n In ActiveShape.Curve.Nodes If n.Type = cdrCuspNode Then n.Type = cdrSmoothNode Next n End Sub