SetEditingType 方法

       

设置由 Index 指定的结点的编辑类型。如果该结点是一个曲线的控制点,本方法将对其设置相邻结点的编辑属性,该属性连接两个段。请注意,由于编辑类型的不同,本方法可能影响相邻结点的位置。

expression.SetEditingType(Index, EditingType)

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

Index  必选。Long 类型。要设置编辑类型的结点。

EditingType  必选。MsoEditingType 类型。编辑类型。

示例

本示例将 myDocument 第三个形状中所有的角结点更改为光滑结点。第三个形状必须是任意多边形。

Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(3).Nodes
    For n = 1 to .Count
        If .Item(n).EditingType = msoEditingCorner Then
            .SetEditingType n, msoEditingSmooth
        End If
    Next
End With