I am using VBA in Excel to draw freeform objects from arrays of data that are
supplied by the active worksheet:

With ActiveSheet.Shapes.BuildFreeform(msoEditingAuto, thePoly(1, 1),
thePoly(2, 1))
For i = 2 To NP
.AddNodes msoSegmentLine, msoEditingAuto, thePoly(1, i),
thePoly(2, i)
Next i
.ConvertToShape.Select
End With

Very simple. The problem is that every now and then the
".ConverToShape.Select" line fails with Run Time Error '1004', which doesn't
tell me much. I look at the points in the "thePoly" array, and they look
fine. Does anyone know what can cause this failure to occur?

Thanks,

Eric