Объект ShapeNodes (издатель)

Статья
04/07/2023

Коллекция всех объектов ShapeNode в указанной свободной форме. Каждый объект ShapeNode представляет узел между сегментами свободной формы или контрольную точку для изогнутого сегмента свободной формы.

Вы можете создать свободную форму вручную или с помощью методов Shapes.BuildFreeform и FreeformBuilder.ConvertToShape .

Замечания

Используйте свойство Nodes для возврата коллекции ShapeNodes . Используйте Nodes (index), где index — это номер индекса узла, чтобы вернуть один объект ShapeNode .

Используйте метод Insert , чтобы создать узел и добавить его в коллекцию ShapeNodes .

Пример

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

Sub DeleteShapeNode() 
 ActiveDocument.Pages(1).Shapes(3).Nodes.Delete Index:=4 
End Sub

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

Sub AddCurvedSmoothSegment() 
 ActiveDocument.Pages(1).Shapes(3).Nodes.Insert _ 
 Index:=4, SegmentType:=msoSegmentCurve, _ 
 EditingType:=msoEditingSmooth, X1:=210, Y1:=100 
End Sub

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

Sub SetPointType() 
 With ActiveDocument.Pages(1).Shapes(3) 
 If .Nodes(1).EditingType = msoEditingCorner Then 
 .Nodes.SetEditingType Index:=1, EditingType:=msoEditingSmooth 
 End If 
 End With 
End Sub

Методы

Свойства

См. также

Справочник по объектной модели издателя

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

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

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