Shapes.AddNodes Error on adding next point <0.25 away from pre
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
--
HTH,
okaizawa
Johannes wrote:
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
|