Метод Shape.Ungroup (PowerPoint)

Статья
04/07/2023

Разгруппирует все сгруппированные фигуры в указанной фигуре или диапазоне фигур. Дизассемблирует изображения и объекты OLE в пределах указанной фигуры или диапазона фигур. Возвращает негруппированные фигуры в виде одного объекта ShapeRange .

Синтаксис

expression. Разгруппировать

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

Возвращаемое значение

ShapeRange

Замечания

Так как группа фигур обрабатывается как один объект, группирование и разгруппирование фигур изменяет количество элементов в коллекции Фигуры и изменяет число индексов элементов, которые поступают после затронутых элементов в коллекции.

Пример

Этот пример разгруппирует все сгруппированные фигуры и дизассемблирует все изображения или объекты OLE в myDocument.

Set myDocument = ActivePresentation.Slides(1)

For Each s In myDocument.Shapes

    s.Ungroup

Next

В этом примере все сгруппированные фигуры в myDocument разгруппированы без дизассемблирования рисунков или объектов OLE на слайде.

Set myDocument = ActivePresentation.Slides(1)

For Each s In myDocument.Shapes

    If s.Type = msoGroup Then s.Ungroup

Next

См. также

Объект Shape

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

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

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