Как преобразовать книгу Excel в презентацию PowerPoint

Вы можете создать книгу таким образом, что она имитирует презентацию PowerPoint. После того, как вы сделаете это, вы можете легко преобразовать рабочую книгу в презентацию PowerPoint, фактически используя только небольшую автоматизацию. С помощью этого макроса, вы можете строить целые презентации в Excel.

Перед тем, как осуществить этот макрос в вашей книге, необходимо установить ссылку на библиотеку объектов Microsoft PowerPoint. 

1. Шаг 1 объявляет шесть переменных:

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

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

- PPSlide является переменной слайдов в PowerPoint;

- xlwksht является переменной объекта рабочего листа;

- MyRange переменная, используемая для хранения и передачи имени диапазона в виде строки;

- MyTitle переменная, используемая для хранения и передачи заголовок для каждого слайда. 

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

3. Шаг 3 заполняет переменную MyRange диапазоном, который мы хотим захватить как содержание слайдов. Мы также заполняем переменную MyTitle со значением ячейки A1. Это значение становится заголовком для слайда. 

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

5. Шаг 5 использует метод CopyPicture для копирования в качестве изображения. 

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

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

8. Далее передаем переменную MyTitle в заголовок. 

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

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

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