SetSegmentType 方法

       

设置由 Index 指定的节点之后的线段的类型。如果该节点是曲线段上的控制点,本方法将设置该曲线的线段类型。请注意,这样可能会由于插入或删除相邻的节点而改变节点的总数。

expression.SetSegmentType(Index, SegmentType)

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

Index   Integer 类型,必需。要设置线段类型的节点。

SegmentType   MsoSegmentType 类型,必需。表示线段是直线还是曲线。

示例

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

Set myDocument = Worksheets(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