全部显示

SegmentType 属性

       

该属性的返回值表示与指定顶点相关联的线段是直线或曲线。MsoSegmentType,只读。

expression.SegmentType

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

说明

如果指定顶点是曲线段的控点,则此属性返回 msoSegmentCurve

可用 SetSegmentType 方法设置此属性的值。

示例

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

Set myDocument = ActiveDocument
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