Sub Test() Dim n As Node For Each n In ActiveShape.Curve.Nodes If n.IsEnding Then ActiveLayer.CreateEllipse2 n.PositionX, n.PositionY, 0.1 End If Next nEnd Sub