Свойство ShapeNode.SegmentType (Publisher)

Статья
04/07/2023

Возвращает константу MsoSegmentType , которая указывает, является ли сегмент, связанный с указанным узлом, прямым или кривым. Только для чтения.

Синтаксис

expression. SegmentType

Выражение Переменная, представляющая объект ShapeNode .

Возвращаемое значение

MsoSegmentType

Замечания

Значение свойства SegmentType может быть одной из констант MsoSegmentType , объявленных в библиотеке типов издателя Майкрософт.

Если указанный узел является контрольной точкой для изогнутого сегмента, это свойство возвращает msoSegmentCurve.

Используйте метод SetSegmentType , чтобы задать значение этого свойства.

Пример

В этом примере все прямые сегменты изменяются на изогнутые сегменты в первой фигуре на первой странице активной публикации. Чтобы этот пример работал, указанная фигура должна быть рисунком свободной формы.

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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через