Programming Excel with VBA and .NET

ShapeNode and ShapeNodes Members

Use the ShapeNodes collection to add or remove segments from a freeform shape. Use the Shape object’s Nodes property to get a reference to this collection. Use the Node object to get the coordinates of a specific segment. The ShapeNodes collection and ShapeNode object have the following members:

1 Collection only
2 Object and collection
Application 2	Count 2
Creator 2	Delete 1
EditingType	Insert 1
Item 1	Parent 2
Points	SegmentType
SetEditingType 1	SetPosition 1
SetSegmentType 1

It’s hard to imagine why anyone would need to modify a freeform shape from code within Excel, but if you want to do that, ShapeNodes is the collection to use! You can modify the shape only after it is rendered from the FreeformBuilder object by the ConvertToShape method. The following code draws a freeform shape using an earlier example, then replaces one of the nodes in the shape:

Sub ShapeNodesMembers( )
    Dim ws As Worksheet, s As Shape, sn As ShapeNodes
    Set ws = ActiveSheet
    ' Use previous example to draw freeform shape.
    DrawAndFillFreeForm
    ' Get the shape
    Set s = ws.Shapes(ws.Shapes.Count)
    ' Get the ShapeNodes
    Set sn = s.Nodes
    ' Delete a node
    sn.Delete (1)
    ' Add a node
    sn.Insert 1, msoSegmentCurve, msoEditingAuto, _
      20, 20, 50, 60, 30, 30
End Sub