设置由 Index 指定的节点之后的线段的类型。如果该节点是曲线段上的控制点,本方法将设置该曲线的线段类型。请注意,这样可能会由于插入或删除相邻的节点而改变节点的总数。
expression.SetSegmentType(Index, SegmentType)
expression 必需。该表达式返回“应用于”列表中的一个对象。
Index Integer 类型,必需。要设置线段类型的节点。
SegmentType MsoSegmentType 类型,必需。表示线段是直线还是曲线。
MsoSegmentType 可为以下 MsoSegmentType 常量之一。 |
msoSegmentCurve |
msoSegmentLine |
本示例将 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