Question

设置由Index 指定的顶点的编辑类型。如果顶点是曲线段的一个控点，则此方法设置连接两条邻接线段的顶点的编辑类型。注意：由于编辑类型的不同，此方法可能影响相邻顶点的位置。

expression.SetEditingType(Index,EditingType)

expression 必需。该表达式返回一个 ShapeNodes 对象。

Index Long 类型，必需。需要设置编辑类型的顶点。

EditingType 必需，MsoEditingType。顶点的编辑属性。

MsoEditingType 可以是下列 MsoEditingType 常量之一：

msoEditingAuto

msoEditingCorner

msoEditingSmooth

msoEditingSymmetric

示例

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

Dim lngLoop As lngLoop

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