Sub CurveNodes() Dim s As Shape Dim nr As NodeRange Set s = ActiveSelection.Shapes(1) If s.Type = cdrCurveShape Then MsgBox "The selected shape has " & _ s.Curve.Nodes.Count & " nodes" End IfEnd Sub