EditingType 属性

如果指定的节点是一个顶点，则此属性的返回值表示修改该顶点对在此顶点连接的两条线段的影响。MsoEditingType，只读。如果此节点是一条曲线段的控点，则此属性返回邻接顶点的编辑类型。

expression   必需。该表达式返回“应用于”列表中的一个对象。

说明

此属性为只读。可用 SetEditingType 方法设置此属性的值。

示例

本示例将活动文档中的第三个图形的所有角式顶点更改为平滑顶点。第三个图形必须是任意多边形绘图。

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