Как перенести график из Excel в PowerPoint

Не редко можно увидеть несколько графиков на одном листе. Многие из нас время от времени копируют диаграммы в PowerPoint. Макрос помогает в решении этой задачи, эффективно автоматизирует процесс копирования каждого из этих графиков в свой собственный слайд.

В этом макросе, мы выполняем цикл по коллекции ActiveSheet.ChartObjects, чтобы скопировать каждую диаграмму в виде изображения на отдельный слайд в созданной презентации PowerPoint. 

1. Шаг 1 объявляет четыре переменные:

- PP является переменной объекта, которая выставляет объект PowerPoint Application;

- PPPres является переменной объекта, которая выставляет объект презентации PowerPoint;

- PPSlide является переменной объект, которая выставляет объект слайдов в PowerPoint;

- I используется в качестве счетчика, чтобы помочь диаграммам на рабочем листе.

2. Шаг 2 делает проверку, чтобы убедиться, что диаграммы на самом деле есть на указанном листе. Если никакие графики не будут найдены, то макрос выходит из процедуры без каких-либо дальнейших действий. 

3. Шаг 3 открывает PowerPoint с пустой презентацией. Обратите внимание, что мы устанавливаем свойство Visible в True. Это гарантирует, что мы можем увидеть действия работы кода. 

4. Шаг 4 устанавливает, сколько раз макрос будет проходить процедуру, захватив количество графиков на листе. Другими словами, если рабочая таблица содержит пять диаграмм, код цикла работает пять раз. Макрос запускает цикл начиная с единицы и продолжает цикл, пока не пройдет через каждую диаграммы. Переменная в конечном счете представляет собой число диаграммы в данный момент. 

5. Шаг 5 использует метод CopyPicture, чтобы скопировать диаграмму в виде картинки. Переменная I передает порядковый номер диаграммы. Метод Application.Wait говорит макросу, чтобы он сделал паузу в течение секунды, что позволит все скопировать в буфер обмена. 

6. Шаг 6 добавляет новый слайд в презентацию с помощью метода Add объекта Slide. Обратите внимание, что мы используем SlideCount + 1, чтобы указать порядковый номер добавленного слайда. Так как мы добавляем неизвестное количество графиков, мы не можем жестко закодировать номер индекса для каждого слайда. Использование SlideCount + 1 позволяет динамически назначать следующий доступный номер в качестве индекса слайдов. Обратите внимание, что на шаге 6, мы используем ppLayout Blank, гарантируя, что вновь созданные слайды начинаются с чистого макета. Далее макрос выделяет текущий слайд. Другими словами, код явно говорит PowerPoint выбрать этот слайд и делает его активным. 

7. Шаг 7 вставляет изображение на активный слайд — размещая изображение в центре как по горизонтали, так и по вертикали, а затем переходит к следующей диаграмме. 

8. Шаг 8 очищает память. 

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

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