Share via

SetEditingType Method [Publisher 2003 VBA Language Reference]

  • Article

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.

MsoEditingType

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

Applies to | ShapeNodes Collection