Метод Shape.Ungroup (Word)

Статья
04/07/2023

Разгруппирует все сгруппированные фигуры в указанной фигуре.

Синтаксис

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

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

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

ShapeRange

Замечания

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

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

Пример

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

Set myDocument = ActiveDocument 
For Each s In myDocument.Shapes 
 s.Ungroup 
Next

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

Set myDocument = ActiveDocument 
For Each s In myDocument.Shapes 
 If s.Type = msoGroup Then s.Ungroup 
Next

См. также

Объект Shape

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

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

Share via