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