expression.SetEditingType(Index, EditingType)
expression Required. An expression that returns one of the objects in the Applies To list.
Index Required Long. The node whose editing type is to be set. Must be a number from 1 to the number of nodes in the specified shape; otherwise, an error occurs.
EditingType Required MsoEditingType. The editing property of the node.
| MsoEditingType can be one of these MsoEditingType constants. |
| msoEditingAuto Changes the node to a type appropriate to the segments being connected. |
| msoEditingCorner Changes the node to a corner node. |
| msoEditingSmooth Changes the node to a smooth curve node. |
| msoEditingSymmetric Changes the node to a symmetric curve node. |
Example
This example changes all corner nodes to smooth nodes in the third shape of the active publication. The shape must be a freeform drawing.
Dim intNode As Integer
With ActiveDocument.Pages(1).Shapes(3).Nodes
For intNode = 1 to .Count
If .Item(intNode).EditingType = msoEditingCorner Then
.SetEditingType _
Index:=intNode, EditingType:=msoEditingSmooth
End If
Next intNode
End With