Объект ShapeNodes (Excel)

Коллекция всех объектов ShapeNode в указанной свободной форме.

Замечания

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

Пример

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

Set myDocument = Worksheets(1) 
myDocument.Shapes(3).Nodes.Delete 4

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

Set myDocument = Worksheets(1) 
With myDocument.Shapes(3).Nodes 
 .Insert 4, msoSegmentCurve, msoEditingSmooth, 210, 100 
End With

Используйте Nodes (index), где index — это номер индекса узла, чтобы вернуть один объект ShapeNode . Если узел один в фигуре три в myDocument является угловой точкой, в следующем примере он становится гладкой. Чтобы этот пример работал, фигура 3 должна быть свободной формы.

Set myDocument = Worksheets(1) 
With myDocument.Shapes(3) 
 If .Nodes(1).EditingType = msoEditingCorner Then 
 .Nodes.SetEditingType 1, msoEditingSmooth 
 End If 
End With

Методы

• Delete
• Insert
• Item
• SetEditingType
• SetPosition
• SetSegmentType

Свойства

• Application
• Count
• Creator
• Parent

См. также

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

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

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