Метод Shape.Ungroup (Publisher)

Статья
04/07/2023

Разгруппирует указанную группу фигур или любые группы фигур в указанном диапазоне фигур. Если указанная фигура является рисунком или объектом OLE, microsoft Publisher разловит ее на части и преобразует ее в негруппованный набор фигур. Например, внедренная электронная таблица Microsoft Office Excel преобразуется в строки и текстовые поля.

Возвращает негруппированные фигуры в виде одного объекта ShapeRange .

Синтаксис

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

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

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

ShapeRange

Замечания

Использование этого метода для встроенной фигуры или фигуры, которая не является группой, рисунком или объектом OLE, приводит к ошибке. Кроме того, ошибка возникает, если рисунок представляет собой растровое изображение, JPEG, GIF или PNG (переносимая сетевая графика).

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

Кроме того, новые негруппированные фигуры добавляются в коллекцию Фигуры на текущей странице (или страницах) или в области с нуля. В результате они могут переходить из одной коллекции в другую.

Пример

В этом примере все сгруппированные фигуры на первой странице активной публикации разгруппированы.

Dim shpLoop As Shape 
 
For Each shpLoop In ActiveDocument.Pages(1).Shapes 
 If shpLoop.Type = pbGroup Then shpLoop.Ungroup 
Next shpLoop

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

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

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