Как вставить таблицу из Excel в PowerPoint

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

В этом примере вы копируете диапазон из файла 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 с пустой презентацией. Обратите внимание, что мы устанавливаем свойство Visible в True. Это гарантирует, что вы сможете увидеть, как работает код. 

3. Шаг 3 добавляет новый слайд в презентацию с помощью метода Add объекта Slide. Обратите внимание, что мы используем ppLayoutTitleOnly, слайд создается с заголовком. Затем мы устанавливаем фокус на слайде. PowerPoint выбирает этот слайд, и делает его активным. 

4. Шаг 4 использует метод CopyPicture для копирования целевого диапазона в качестве изображения. Диапазон копирования здесь от A1 до F5 на вкладке Данные для слайда. 

5. Шаг 5 вставляет изображение в центр активного слайда 

6. Далее сохраняем текст для заголовка в строковой переменной, а затем передаем эту переменную в PowerPoint, чтобы вставить текст в заголовок слайда. 

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

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

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