Sub Test() Dim s As Shape Dim seg As Segment Set s = ActiveShape If s.Type = cdrCurveShape Then For Each seg In s.Curve.Segments If seg.Type = cdrCurveSegment Then ActiveLayer.CreateEllipse2 seg.StartingControlPointX, seg.StartingControlPointY, 0.02 ActiveLayer.CreateEllipse2 seg.EndingControlPointX, seg.EndingControlPointY, 0.02 End If Next seg End IfEnd Sub