SetEditingType Method

Microsoft Publisher Visual Basic

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