Multiple objects ShapeNodes ShapeNode |
A collection of all the ShapeNode objects in the specified freeform. Each ShapeNode object represents either a node between segments in a freeform or a control point for a curved segment of a freeform. You can create a freeform manually or by using the BuildFreeform and ConvertToShape methods.
Use the Nodes property to return the ShapeNodes collection. The following example deletes node four in shape three on myDocument
. For this example to work, shape three must be a freeform with at least four nodes.
Set myDocument = Worksheets(1)
myDocument.Shapes(3).Nodes.Delete 4
Use the Insert
method to create a new node and add it to the ShapeNodes collection. The following example adds a smooth node with a curved segment after node four in shape three on myDocument
. For this example to work, shape three must be a freeform with at least four nodes.
Set myDocument = Worksheets(1)
With myDocument.Shapes(3).Nodes
.Insert 4, msoSegmentCurve, msoEditingSmooth, 210, 100
End With
Use Nodes(index), where index is the node index number, to return a single ShapeNode object. If node one in shape three on myDocument
is a corner point, the following example makes it a smooth point. For this example to work, shape three must be a freeform.
Set myDocument = Worksheets(1)
With myDocument.Shapes(3)
If .Nodes(1).EditingType = msoEditingCorner Then
.Nodes.SetEditingType 1, msoEditingSmooth
End If
End With