SetEditingType Method
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 type.
| MsoEditingType can be one of these MsoEditingType constants. |
| msoEditingAuto |
| msoEditingCorner |
| msoEditingSmooth |
| msoEditingSymmetric |
Example
This example changes all corner nodes to smooth nodes in shape three on myDocument. Shape three must be a freeform drawing.
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(3).Nodes
For n = 1 to .Count
If .Item(n).EditingType = msoEditingCorner Then
.SetEditingType n, msoEditingSmooth
End If
Next
End With