expression.SetEditingType(Index, EditingType)
expression Required. An expression that returns one of the objects in the Applies To list.
Index Required Integer. 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 shape three on myDocument. Shape three must be a freeform drawing.
Set myDocument = Worksheets(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