Share via


EditingType Property

MsoEditingType

MsoEditingType can be one of these MsoEditingType constants.
msoEditingAuto
msoEditingCorner
msoEditingSmooth
msoEditingSymmetric

expression.EditingType

expression Required. An expression that returns one of the objects in the Applies To list.

Remarks

This property is read-only. Use the SetEditingType method to set the value of this property.

Example

This example changes all corner nodes to smooth nodes in the third shape on the active document. The third shape must be a freeform drawing.

Dim docActive As Document
Dim intCount As Integer

Set docActive = ActiveDocument

With docActive.Shapes(3).Nodes
    For intCount = 1 to .Count
        If .Item(intCount).EditingType = msoEditingCorner Then
            .SetEditingType intCount, msoEditingSmooth
        End If
    Next
End With

Applies to | ShapeNode Object

See Also | Format Property