Word VBA教程:SetSegmentType方法

设置由 Index 指定的顶点后面线段的类型。如果顶点是曲线段的控点,则此方法设置该曲线的线段类型。请注意,插入或删除邻近顶点可能影响总顶点数。

expression.SetSegmentType(Index, SegmentType)

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

Index   Long 类型,必需。需要设置线段类型的顶点。

 SegmentType 必需   MsoSegmentType。 指明线段是直线段还是曲线段。

MsoSegmentType 可以是下列 MsoSegmentType 常量之一:
msoSegmentLine
msoSegmentCurve

VBA示例

本示例将当前文档中图形 3 的所有直线段变为曲线段。图形 3 必须是任意多边形。


Dim lngLoop As Long
With ActiveDocument.Shapes(3).Nodes
    lngLoop = 1
    While lngLoop <= .Count
        If .Item(lngLoop).SegmentType = msoSegmentLine Then
            .SetSegmentType lngLoop, msoSegmentCurve
        End If
        lngLoop = lngLoop + 1
    Wend
End With

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号