Share via

SegmentType Property [Publisher 2003 VBA Language Reference]

  • Article

MsoSegmentType

MsoSegmentType can be one of these MsoSegmentType constants.
msoSegmentCurve
msoSegmentLine

expression.SegmentType

expression Required. An expression that returns one of the objects in the Applies To list.

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 the first shape on the first page of the active publication. For this example to work, the specified shape must be a freeform drawing.

Sub ChangeSegmentTypes()
    Dim intNode As Integer
    With ActiveDocument.Pages(1).Shapes(1).Nodes
        intNode = 1
        Do While intNode <= .Count
            If .Item(intNode).SegmentType = msoSegmentLine Then
                .SetSegmentType Index:=intNode, _
                    SegmentType:=msoSegmentCurve
            End If
            intNode = intNode + 1
        Loop
    End With
End Sub

Applies to | ShapeNode Object