Объект ShapeNodes (Word)
Коллекция всех объектов ShapeNode в указанной свободной форме. Каждый объект ShapeNode представляет узел между сегментами свободной формы или контрольную точку для изогнутого сегмента свободной формы.
Вы можете создать свободную форму вручную или с помощью методов BuildFreeform и ConvertToShape .
Используйте свойство Nodes , чтобы вернуть коллекцию ShapeNodes . В следующем примере узел четыре в форме три удаляется в активном документе. Чтобы этот пример работал, фигура три должна быть свободной формы с по крайней мере четырьмя узлами.
ActiveDocument.Shapes(3).Nodes.Delete 4
Используйте метод Insert , чтобы создать узел и добавить его в коллекцию ShapeNodes . В следующем примере в активном документе добавляется гладкий узел с изогнутым сегментом после узла четыре в форме три. Чтобы этот пример работал, фигура три должна быть свободной формы с по крайней мере четырьмя узлами.
With ActiveDocument.Shapes(3).Nodes
.Insert 4, msoSegmentCurve, msoEditingSmooth, 210, 100
End With
Используйте Nodes (Index), где Index — это номер индекса узла, чтобы вернуть один объект ShapeNode . Если узел один в фигуре 3 в активном документе является угловой точкой, в следующем примере он становится гладкой. Чтобы этот пример работал, фигура 3 должна быть свободной формы.
With ActiveDocument.Shapes(3)
If .Nodes(1).EditingType = msoEditingCorner Then
.Nodes.SetEditingType 1, msoEditingSmooth
End If
End With
Справочник по объектной модели Word
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.