Shapes.AddNodes Error on adding next point <0.25 away from prev po

[Guest]

I always get error message saying that the object or the method is not
supported when I call the AddNodes (or even draw polygon, the function that
you input 2 Dimensional array of point coord) that is <0.25 on X or <0.25 on
Y away from prev point. As soon as I inc the value to equal or higher than
0.25, the error message dissapear. Is this a bug?

 

[NickHK]

Johannes,
Not that I use Shapes much, but XL2000 does not have "Shapes.AddNodes".
Anyway, a related issue may be:

http://www.mrexcel.com/archive2/67600/78336.htm

NickHK

 

[Guest]

Sorry, I mean the var of type freeform builder. Will get the error at the
time I set it to shape (so can be visible on Excel worksheet).
Btw, I'm using Office 2003 with all the patches avail in Windows Update
(more appropriately Office Update).
I went to the link from Nick, it didn't provide answer to my Q.

<CODE>
Dim shpMyGreatShape As Shape
Dim ffbMyFreeForm As FreeformBuilder
Set ffbMyFreeForm = ActiveSheet.Shapes.BuildFreeform(msoEditingAuto,
300, 200)
With ffbMyFreeForm
.AddNodes msoSegmentLine, msoEditingAuto, 300.1, 200 'if changed the
X,Y to bigger distance away from 300,200, will NOT get error below
Set shpMyGreatShape = .ConvertToShape 'will get error here
End With
</CODE>

 

[NickHK]

Johannes,
Well, I'm using Excel 2000 so have exactly the problem indicated in the
link. So I can't help.

Did you try the suggestion of:
Set Poly = ActiveSheet.Drawings.Add(145, 9.75, 140, 9.75, False)
Poly.AddVertex 145, 19.75

NickHK

 

[okaizawa]

Hi,

I tested the following code in Excel 2000. if there are nodes close to
each other then the ConvertToShape method fails. SetPosition and Insert
method work. it also happened in Excel 97. but I don't know if it is
the same in later versions.

Sub Test1()
With ActiveSheet.Shapes.BuildFreeform(msoEditingAuto, 10, 10)
.AddNodes msoSegmentLine, msoEditingAuto, 10.25, 10.25
.AddNodes msoSegmentLine, msoEditingAuto, 10, 10.25
.AddNodes msoSegmentLine, msoEditingAuto, 10, 10
.ConvertToShape.Select ' shows Run time error 1004:
'Application defined or object defined error
End With
End Sub

Sub Test2()
With ActiveSheet.Shapes.BuildFreeform(msoEditingAuto, 10, 10)
.AddNodes msoSegmentLine, msoEditingAuto, 100, 100
With .ConvertToShape
.Nodes.SetPosition 2, 10.25, 10.25
.Nodes.Insert 2, msoSegmentLine, msoEditingAuto, 10, 10.25
.Nodes.Insert 3, msoSegmentLine, msoEditingAuto, 10, 10
End With
End With
End Sub