Как создать набор бессвязных диаграмм

Если вам необходимо скопировать диаграммы из книги и вставить их в другой файл (в другую рабочую книгу, в PowerPoint, в Outlook и т.д.), лучше отключить их от исходных данных. Таким образом, вы не будете получать предупреждение от Excel. Этот макрос копирует все диаграммы на активном листе, вставляет их в новую книгу и отключает от исходных данных.

Этот макрос использует метод ShapeRange.Group, чтобы сгруппировать все диаграммы на активном листе в одну форму. После того, как диаграммы сгруппированы, мы копируем группу, и вставляем ее в новую книгу. Затем мы используем метод BreakLink, чтобы удалить ссылки на исходные данные. 

1. Шаг 1 объявляет переменную wbLinks. Макрос использует её в шаге 4, чтобы передать ссылку на источник при разрыве связей. 

2. Шаг 2 использует ChartObjects.ShapeRange.Group для группировки всех диаграмм в единую форму. Макрос копирует группу в буфер обмена. После того как группа скопирована, макрос разгруппировывает диаграммы. 

3. Шаг 3 создает новую рабочую книгу и вставляет скопированную группу на Лист1. После того, как группа была вставлена, мы можем разгруппировать ее так, чтобы каждая диаграмма была отдельно. 

4. Шаг 4 захватывает ссылку на источник в переменной wbLinks. Макрос говорит Excel разорвать связь. 

Обратите внимание, что так как этот метод преобразует исходный график на формулу массива, этот метод может не сработать, если ваш график содержит слишком много точек данных. Слишком много – это сколько? Это индивидуально для каждого компьютера, так как ограничено памятью. 

Для реализации этого макроса, вы можете скопировать и вставить его в стандартный модуль:

1. Активируйте редактор Visual Basic, нажав ALT + F11. 
2. Щелкните правой кнопкой мыши имя проекта / рабочей книги в окне проекта. 
3. Выберите Insert➜Module. 
4. Введите или вставьте код во вновь созданном модуле.