Table of contents
TOC
Collapse the table of content
Expand the table of content

ShapeNode.SegmentType Property (Publisher)

office 365 dev account|Last Updated: 8/24/2017
|
3 Contributors

Returns an MsoSegmentType constant that indicates whether the segment associated with the specified node is straight or curved. Read-only.

Syntax

expression. SegmentType

_expression_A variable that represents a ShapeNode object.

Return Value

MsoSegmentType

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.

The SegmentType property value can be one of these MsoSegmentType constants declared in the Microsoft Publisher type library.

| msoSegmentCurve| | msoSegmentLine|

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
© 2018 Microsoft