Метод ShapeRange.Ungroup (Excel)

Статья
04/07/2023

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

Синтаксис

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

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

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

Объект ShapeRange , представляющий негруппированные фигуры.

Замечания

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

Пример

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

Set myDocument = Worksheets(1) 
For Each s In myDocument.Shapes 
 s.Ungroup 
Next

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

Set myDocument = Worksheets(1) 
For Each s In myDocument.Shapes 
 If s.Type = msoGroup Then s.Ungroup

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

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

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