Skip to content

Latest commit

 

History

History
73 lines (52 loc) · 2.49 KB

Excel.ShapeNodes.md

File metadata and controls

73 lines (52 loc) · 2.49 KB
title keywords f1_keywords api_name ms.assetid ms.date ms.localizationpriority
ShapeNodes object (Excel)
vbaxl10.chm112000
vbaxl10.chm112000
Excel.ShapeNodes
663721f1-8bd0-dd21-2362-fea2da3988bf
04/02/2019
medium

ShapeNodes object (Excel)

A collection of all the ShapeNode objects in the specified freeform.

Remarks

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.

Example

Use the Nodes property of the Shape object 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

Methods

Properties

See also

[!includeSupport and feedback]