Sub Test() Dim s As Shape Dim n As Node Set s = ActiveShape If s.Type = cdrCurveShape Then Set n = s.Curve.Nodes(4) If n.Type = cdrSymmetricalNode And n.Next.Type = cdrCuspNode Then n.Next.Type = cdrSmoothNode End If End IfEnd Sub