Метод ShapeRange.Ungroup (PowerPoint)
Разгруппирует все сгруппированные фигуры в указанной фигуре или диапазоне фигур. Дизассемблирует изображения и объекты OLE в пределах указанной фигуры или диапазона фигур. Возвращает негруппированные фигуры в виде одного объекта ShapeRange .
Синтаксис
expression. Разгруппировать
Выражение Переменная, представляющая объект ShapeRange .
Возвращаемое значение
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
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.