SetSegmentType Method
Applies To
ShapeNodes collection object.
Description
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.
Syntax
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.
SegmentType Required Long. Specifies if the segment is straight or curved. Can be either of the following MsoSegmentType constants: msoSegmentCurve or 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 = 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