Объект ShapeNodes (PowerPoint)

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

Замечания

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

Пример

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

Set myDocument = ActivePresentation.Slides(1)

myDocument.Shapes(3).Nodes.Delete 4

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

Set myDocument = ActivePresentation.Slides(1)

With myDocument.Shapes(3).Nodes

    .Insert 4, msoSegmentCurve, msoEditingSmooth, 210, 100

End With

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

Set myDocument = ActivePresentation.Slides(1)

With myDocument.Shapes(3)

    If .Nodes(1).EditingType = msoEditingCorner Then

        .Nodes.SetEditingType 1, msoEditingSmooth

    End If

End With

См. также

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

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

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