全部显示

SetSegmentType 方法

设置 Index 指定的结点后面的段的段类型。如果该结点为一条曲线段的控制点，则该方法设置该曲线的段类型。请注意，该方法可能由于插入或删除相邻的结点而影响结点总数。

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

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

SegmentType  必选。MsoSegmentType 类型。指定段是直线还是曲线。

示例

本示例将 myDocument 中第三个形状的所有直线段更改为曲线段。第三个形状必须是任意多边形。

Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(3).Nodes
    n = 1
    While n <= .Count
        If .Item(n).SegmentType = msoSegmentLine Then
            .SetSegmentType n, msoSegmentCurve
        End If
        n = n + 1
    Wend
End With