Sub CurveSelection() Dim s As Shape Dim nr As NodeRange Set s = ActiveSelection.Shapes(1) If s.Type = cdrCurveShape Then Set nr = s.Curve.Selection If nr.type=cdrMixedNodes then MsgBox "The current curve selection has mixed nodes." End If End IfEnd Sub