Adding nodes to a line segment via VBA

[ddonnahoe]

In Draw X7, if I create a line segment that only has 2 nodes, then select all the nodes with the node editing tool and hit the plus key on the numerical keypad, I get additional nodes, evenly spaced, every time i hit the plus key.

How can I achieve this via VBA?

Set chevron = ActiveLayer.CreateLineSegment(x, y, (w + 0.5), y)

[shark]

Here simple code to add nodes to each segments

Private Sub AddNodes()
Dim s As Shape, nseg&
    Set s = ActiveShape: If s Is Nothing Then Exit Sub
    For nseg = s.Curve.Segments.Count To 1 Step -1
        s.Curve.Segments(nseg).AddNodeAt  'without parameters adds node to midpoint
    Next
End Sub

Or you can do it by one codeline:
s.Curve.Segments.All.AddNode