SetEditingType Method
From 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