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

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

Синтаксис

expression. SegmentType

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

Замечания

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

Пример

В этом примере все прямые сегменты изменяются на изогнутые сегменты в третьей форме в 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 и обратная связь.