Как отправить график из Excel в PowerPoint

Автор Дмитрий Якушев На чтение4 мин. Просмотров63

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

Содержание

1. Как макрос работает
2. Код макроса
3. Как этот код работает
4. Как использовать

Как макрос работает

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

Код макроса

Как этот код работает

1. Шаг 1 объявляет четыре переменные:
• PP является переменной объекта, которая выставляет объект PowerPoint Application;
• PPPres является переменной объекта, которая выставляет объект презентации PowerPoint;
• PPSlide является переменной объект, которая выставляет объект слайдов в PowerPoint;
• I используется в качестве счетчика, чтобы помочь диаграммам на рабочем листе.
2. Шаг 2 делает административную проверку, чтобы убедиться, что диаграммы на самом деле есть в указанном листе. Если никакие графики не будут найдены, то макрос выходит из процедуры без каких-либо дальнейших действий.
3. Шаг 3 открывает PowerPoint с пустой презентацией. Обратите внимание, что мы устанавливаем Видимый — свойство приложения PowerPoint в 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 очищает память.