ShapeNode.SegmentType Property (Word)
Returns a value that indicates whether the segment associated with the specified node is straight or curved. Read-only MsoSegmentType.
Syntax
expression .SegmentType
expression Required. A variable that represents a ShapeNode object.
Remarks
If the specified node is a control point for a curved segment, this property returns msoSegmentCurve.
Use the SetSegmentType method to set the value of this property.
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