I'm a newbie trying to build a freeform shape by adding nodes via .addnodes
via a loop.

Something like:
'
Count = UBound(CoordArray, 1)
'
With myDocument.Shapes.BuildFreeform(msoEditingCorner, CoordArray(1, 1),
CoordArray(1, 2))
For counter = 1 To Count
.AddNodes msoSegmentLine, msoEditingAuto, CoordArray(counter, 1),
CoordArray(counter, 2)
Next counter

.ConvertToShape

End With


But it doesn't like this.
--
thanks for your help.

jap