Sets the editing type of the node specified by Index. If the node is a control point for a curved segment, this method sets the editing type of the node adjacent to it that joins two segments. Note that, depending on the editing type, this method may affect the position of adjacent nodes.
expression.SetEditingType(Index, EditingType)
expression Required. An expression that returns a ShapeNodes object.
Index Required Long. The node whose editing type is to be set.
EditingType Required MsoEditingType. The editing property of the vertex.
MsoEditingType can be one of these MsoEditingType constants. |
msoEditingAuto |
msoEditingCorner |
msoEditingSmooth |
msoEditingSymmetric |
Example
This example changes all corner nodes to smooth nodes in the third shape on the active document. The third shape must be a freeform drawing.
Dim lngLoop As lngLoop
With ActiveDocument.Shapes(3).Nodes
For lngLoop = 1 to .Count
If .Item(lngLoop).EditingType = msoEditingCorner Then
.SetEditingType lngLoop, msoEditingSmooth
End If
Next lngLoop
End With