Returns a value that indicates whether the segment associated with the specified node is straight or curved. Read-only MsoSegmentType.
| MsoSegmentType can be one of these MsoSegmentType constants. |
| msoSegmentCurve The SegmentType property returns this value if the specified node is a control point for a curved segment. |
| msoSegmentLine |
expression.SegmentType
expression Required. An expression that returns one of the objects in the Applies To list.
Remarks
This property is read-only. 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 = 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