Метод ShapeNodes.SetSegmentType (Excel)

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

Синтаксис

expression. SetSegmentType (Index, SegmentType)

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Индекс;	Обязательный	Long	Узел, тип сегмента которого необходимо задать.
SegmentType	Обязательный	MsoSegmentType	Указывает, является ли сегмент прямым или изогнутым.

Пример

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

Set myDocument = Worksheets(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

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

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