SetEditingType Method

       

Sets the editing type of the specified node. 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. Depending on the editing type, this method may affect the position of adjacent nodes.

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