SetSegmentType Method
Sets the segment type of the segment that follows the node specified by Index. If the node is a control point for a curved segment, this method sets the segment type for that curve. Note that this may affect the total number of nodes by inserting or deleting adjacent nodes.
expression**.SetSegmentType**(Index, SegmentType)
*expression * Required. An expression that returns a ShapeNodes object.
Index Required Long. The node whose segment type is to be set.
MsoSegmentType
MsoSegmentType can be one of these MsoSegmentType constants. |
msoSegmentCurve |
msoSegmentLine |
Example
This example changes all straight segments to curved segments in shape three on myDocument
. Shape three must be a freeform drawing.
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
Applies to | ShapeNodes Collection Object