Как отправить данные Excel в PowerPoint

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

Что делает макрос: До 50 процентов презентаций PowerPoint содержат данные, которые были скопированы прямо из Excel. В это не трудно поверить. Так намного легче анализировать и создавать диаграммы и данные в Excel, чем в PowerPoint. После того как вы создали эти диаграммы и представления данных, то почему бы не отправить данные в PowerPoint.
Макрос в этом разделе позволяет автоматически создавать слайды PowerPoint, которые содержат данные из указанного диапазона.

Содержание

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

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

В этом примере вы копируете диапазон из файла Excel и вставляете его в слайд недавно созданной презентации PowerPoint.
Имейте в виду, что этот код запускается из Excel, поэтому вам необходимо установить ссылку на Microsoft PowerPoint Object Library. Опять же, вы можете установить ссылку, открыв редактор Visual Basic в Excel и выберите Tools➜References. Прокрутите вниз, пока не найдете запись Microsoft PowerPoint XX Object Library, где XX — это ваша версия PowerPoint. Установите флажок рядом с записью.

Код макроса

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

1. Шаг 1 объявляет четыре переменные:
• PP является переменной объекта, которая выставляет объект PowerPoint Application;
• PPPres является переменной объекта, которая выставляет объект презентации PowerPoint;
• PPSlide является переменной объекта, которая выставляет объект слайдов в PowerPoint;
• SlideTitle является переменной строки, используемая
  для передачи текста для заголовка слайда.
2. Шаг 2 открывает PowerPoint с пустой презентации. Обратите внимание, что мы устанавливаем свойство приложения «Видимый» PowerPoint в True. Это гарантирует, что вы можете увидеть, как работает код.
3. Шаг 3 добавляет новый слайд в презентации с помощью метода Add объекта Slide. Обратите внимание, что мы используем ppLayoutTitleOnly, слайд создается с названием текстового фрейма. Затем мы берем дополнительный шаг и устанавливаем фокус на слайде. PowerPoint выбирает этот слайд, и делает его активным.
4. Шаг 4 использует метод CopyPicture для копирования целевого диапазона в качестве изображения. Диапазон копирования здесь A1 до J28 на вкладке Slide Data.
5. Шаг 5 вставляет изображение в центр активного слайда
6. Далее сохраняем текст для заголовка в строковой переменной, а затем передаем эту переменную в PowerPoint, чтобы применить текст в заголовке текстового фрейма.
7. Шаг 7 очищает память