Question

全部显示

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

expression.SetSegmentType(Index, SegmentType)

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

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

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

MsoSegmentType 可以是下列 MsoSegmentType 类型常数之一。

msoSegmentCurve

msoSegmentLine

示例

本示例将 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