Метод ShapeNodes.SetSegmentType (Publisher)

Задает тип сегмента, следующего за указанным узлом. Если узел является контрольной точкой для изогнутого сегмента, этот метод задает тип сегмента для этой кривой. Это может повлиять на общее количество узлов путем вставки или удаления смежных узлов.

Синтаксис

expression. SetSegmentType (Index, SegmentType)

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Индекс;	Обязательный	Long	Узел, тип сегмента которого необходимо задать. Должно быть числом от 1 до числа узлов в указанной фигуре; В противном случае возникает ошибка.
SegmentType	Обязательный	MsoSegmentType	Указывает тип сегмента. Может быть одной из констант MsoSegmentType , объявленных в библиотеке типов Microsoft Office.

Пример

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

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

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

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