Как создавать и добавлять слайды в презентации PowerPoint с помощью VBA?

Пару дней назад читатель спросил, есть ли способ автоматизировать создание презентаций PowerPoint с нуля, а затем быстро добавлять слайды в существующую презентацию. Я думаю, что этот сценарий может быть в списке самых полезных макросов PowerPoint. 

Как мы указывали ранее, PowerPoint не включает средство записи макросов (в отличие от Excel и Word, которые имеют встроенные средства записи макросов). Поэтому у нас остался старый добрый Visual Basic for Application, который мы можем использовать для создания простых макросов для автоматизации PowerPoint. Существуют и другие альтернативы PowerPoint Automation, но они выходят за рамки данного руководства.

В сегодняшнем кратком руководстве мы рассмотрим три различных варианта использования:

  1. Создание новой презентации (пустой или с использованием шаблона)
  2. Добавьте слайды в существующую презентацию.
  3. Сочетание двух вышеупомянутых случаев (Создание с нуля и добавление слайдов)

Давайте начнем.

Посмотрите на ленту. Если вы не видите запись «Разработчик» в меню, перед началом кодирования вам необходимо включить вкладку «Разработчик».

После того, как вы сделаете меню «Разработчик» видимым на своей ленте, нажмите « Разработчик », затем нажмите кнопку « Visual Basic » (или просто нажмите «Alt+F11»), чтобы открыть Visual Basic IDE.

VBA для создания презентации PowerPoint

  1. В редакторе VB щелкните правой кнопкой мыши VBAProject и нажмите « Вставить » .
  2. Выберите модуль .
  3. Вставьте следующий код во вновь созданный модуль.
Sub CreatePresentation()
Dim NewPres as Presentation
Set NewPres = Presentations.Add
NewPres.SaveAs("MyPresentation.pptx")
End Sub
  1. Нажмите «Файл», а затем «Сохранить».
  2. Чтобы запустить свой код, нажмите «Выполнить», а затем выберите «Выполнить подчиненную/пользовательскую форму» (или просто F5).
  3. Закройте редактор VB.

VBA для вставки слайдов

  1. В редакторе VB щелкните правой кнопкой мыши VBAProject и нажмите «Вставить».
  2. Выберите модуль
  3. Вставьте следующий код во вновь созданный модуль.
Sub CreateSlide()
Dim NewSlide as Slide
'This statement ads a title slide
Set NewSlide = ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle)
'This statement adds a blank slide in the second place
Set NewSlide = ActivePresentation.Slides.Add(Index:=2, Layout:=ppLayoutBlank)
End Sub
  1. Нажмите «Файл», а затем «Сохранить».
  2. Чтобы запустить свой код, нажмите «Выполнить», а затем выберите «Выполнить подчиненную/пользовательскую форму» (или просто F5).
  3. Закройте редактор VB.

Макрос для настройки новой презентации и добавления слайдов

Это было бы просто смешиванием двух фрагментов, описанных выше.

Sub CreatePres_AddSlides()
Dim NewPres as Presentation
Dim NewSlide as Slide
Set NewPres = Presentations.Add
NewPres.SaveAs("MyPresentation.pptx")
' Title Slide
Set NewSlide = ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle)
'This statement adds a blank slide in the second place
Set NewSlide = ActivePresentation.Slides.Add(Index:=2, Layout:=ppLayoutBlank)
'Save the new PowerPoint file
NewPres.SaveAs("MyPresentation.pptx")
End Sub

Далее вы можете ознакомиться с нашим руководством по программному созданию фигур в PowerPoint с помощью VBA.

Создание презентации PowerPoint из Excel

В последнем случае вы хотите создать презентацию PowerPoint прямо из электронной таблицы Excel. Вы можете использовать ту же технику из Word и других приложений Microsoft 365.

  • Свяжите электронную таблицу с моделью данных PowerPoint (из Инструменты>>Ссылки)
  • Вставьте кнопку в электронную таблицу Excel («Разработчик» >> «Вставить», а затем выберите «Командную кнопку»).
  • Вставьте приведенный ниже код VBA в свой проект электронной таблицы VBA (непосредственно в лист или в модуль VBA).
  • Измените сценарий по мере необходимости.
  • Запустите (нажмите F5) и проверьте результат.
Sub CreatePresentationFromExcel()


Dim MyPPt As PowerPoint.Application
Dim NewPres As PowerPoint.Presentation
Dim NewSlide As Slide
Set MyPPt = CreateObject("PowerPoint.Application")

Set NewPres = MyPPt.Presentations.Add
Set NewSlide = MyPPt.ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle)

NewPres.SaveAs ("MyPresentation.pptx")
NewPres.Close

MyPPt.Quit

MsgBox ("Presentation saved")
End Sub

Наслаждайтесь 🙂

Плюсы Excel VBA PowerPoint

  • Использование VBA в Powerpoint упрощает работу с файлом ppt, содержащим большое количество слайдов с огромным содержимым.
  • VBA с Powerpoint обеспечивает некоторую автоматизацию даже при ограниченном количестве доступных функций.

Минусы Excel VBA PowerPoint

  • Нам нужно выбрать Библиотеку объектов Microsoft PowerPoint 15.0 из параметра «Справочник», расположенного в пункте меню «Инструменты», который нам нужен в начале пример 1, каждый раз, когда мы запускаем код PowerPoint.

То, что нужно запомнить

  • После написания кода сохраните файл в формате презентации с поддержкой макросов. Это поможет нам избежать потери кода и повторного использования одного и того же кода в будущем.
  • Функция перекодирования здесь не будет работать, так как нам нужно перейти из Excel в PowerPoint, изменив интерфейс между страницами.
  • Всегда компилируйте код перед запуском. Это поможет вам найти ошибку в коде. Это очень полезно, когда мы пишем большие строки кода.
  • Чтобы запустить и реализовать код, нам нужно открыть лист Excel с диаграммой, которую мы хотим вставить в слайд PowerPoint.
  • Мы можем настроить диаграмму в PowerPoint в соответствии с нашими потребностями.

6 простых и быстрых решений для исправления ошибки PS4 CE-32895-7

6 простых и быстрых решений для исправления ошибки PS4 CE-32895-7

Получение ошибки CE-32895-7 при попытке войти в систему или подключиться к PS4, затем следуйте приведенным решениям и легко устраните ошибку PS4 CE-32895-7.

7 быстрых исправлений ошибки ReCaptcha для владельца сайта: неверный тип ключа

7 быстрых исправлений ошибки ReCaptcha для владельца сайта: неверный тип ключа

Увидев Google ReCaptcha «Ошибка для владельца сайта: неверный тип ключа», попробуйте исправить, например, перейти на ключ ReCaptcha V2, обновить браузер и т. д.

Распространенные проблемы Pixel 6 и Pixel 6 Pro и способы их решения

Распространенные проблемы Pixel 6 и Pixel 6 Pro и способы их решения

Мы составили список наиболее распространенных проблем с Pixel 6 и Pixel 6 Pro, а также некоторые применимые решения. Узнайте больше здесь и дайте нам свои 2 цента.

Как решить проблему «Sims 4 Сим не спит»? [ПРОВЕРЕННЫЕ СПОСОБЫ]

Как решить проблему «Sims 4 Сим не спит»? [ПРОВЕРЕННЫЕ СПОСОБЫ]

Обеспокоены уровнем энергии симов, поскольку симы не остаются в постели и не засыпают? Прочитайте о решениях проблемы Sims 4: сим не спит.

Двухэтапная аутентификация Google не работает? Проверьте эти решения

Двухэтапная аутентификация Google не работает? Проверьте эти решения

Если двухэтапная проверка Google не работает, проверьте свой номер, попробуйте другой метод, и обязательно проверьте наличие подсказок Google.

Полное руководство по запуску Scandisk в Windows 10 и 8

Полное руководство по запуску Scandisk в Windows 10 и 8

Узнайте, как запустить ScanDisk в системе Windows 10 и 8. Прочтите полное руководство и следуйте шагам, приведенным один за другим, чтобы сделать ваш жесткий диск безошибочным.

Исправить Dungeon Siege 2 без указателя мыши [ПРОВЕРЕННЫЕ СПОСОБЫ]

Исправить Dungeon Siege 2 без указателя мыши [ПРОВЕРЕННЫЕ СПОСОБЫ]

При работе с Dungeon Siege 2 нет проблем с указателем мыши, затем попробуйте изменить разрешение, обновить драйверы, изменить параметры запуска и другие…

Windows OEM и Windows Retail: различия, которые нужно знать

Windows OEM и Windows Retail: различия, которые нужно знать

Пытаясь купить лицензионный ключ Windows, узнайте разницу между Windows OEM и Windows Retail и выберите лучший ключ продукта для своего ПК.

Ваш компьютер или сеть могут отправлять автоматические запросы [ИСПРАВЛЕНО]

Ваш компьютер или сеть могут отправлять автоматические запросы [ИСПРАВЛЕНО]

Узнайте, как устранить ошибку "Ваш компьютер может отправлять автоматические запросы" и безопасно продолжить работу с Google. Инструкции по исправлению.

8 простых способов исправить ошибку «У вас есть эта игра или приложение?» Ошибка 0x803f8001?

8 простых способов исправить ошибку «У вас есть эта игра или приложение?» Ошибка 0x803f8001?

Чтобы исправить ошибку «У вас есть эта игра или приложение?» код ошибки 0x803f8001 на Xbox, выполните несколько простых действий, чтобы устранить проблему и насладиться игрой.