Freeform Object Failing

[egun]

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

 

[Chip Pearson]

I'd get rid of the Select method. Instead of

..ConvertToShape.Select

just use

..ConvertToShape

Cordially,
Chip Pearson
Microsoft Most Valuable Professional
Excel Product Group
Pearson Software Consulting, LLC
www.cpearson.com
(email on web site)