Автогруппировка объектов

Предлагаю макрос для автоматической группировки объектов. То есть, если у вас на листе много, например, разгруппированных табличек или визиток, то макрос автоматически их сгруппирует. Группирование производится по прямоугольной границе выделения, поэтому, если у вас, например, рядом находятся две окружности или тругольника, которые не пересекаются, но их рамки выделения накладываются, то макрос их также сгруппирует. (Более точная проверка пересечений потребует больше времени, проверка сегментов, поверклипов и т.п. - процесс долгий). Для работы макроса не нужно что либо выделять, анализируются все объекты на текущей странице, "залоченные" (Locked) объекты игнорируются.
Для проверки макроса разгруппируйте несколько объектов, макрос их "соберет" обратно.