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