Як працювати з полями повідомлень і введенням у PowerPoint VBA?

Переглядаючи коментарі, я побачив кілька запитань читачів про те, як працювати з вікнами введення та повідомлень Visual Basic у PowerPoint.

У цьому підручнику ми надамо базові базові знання, які допоможуть вам використовувати ці можливості під час автоматизації створення презентації.

Налаштування вкладки розробника

По-перше, нам потрібно ввімкнути середовище розробника для PowerPoint. Дотримуйтесь цього посібника, щоб налаштувати вкладку розробки.

У PowerPoint перейдіть до меню Розробник і натисніть Visual Basic.

У дереві проекту клацніть правою кнопкою миші свою презентацію, натисніть «Вставити», а потім виберіть «Модуль». Буде створений новий модуль VBA, це місце, куди ви будете писати свій код.

Вікна повідомлень у PowerPoint

Вікна повідомлень начебто зрозумілі самі, їх мета — показати деяку корисну інформацію кінцевому користувачеві. Напишіть наступний код у своєму модулі:

Sub simplemessagebox()
MsgBox ("This is a simple message box")
End Sub

Натисніть F5 або Run і подивіться результат:

Приклад повідомлення та вікна введення

На відміну від вікон повідомлень, поля введення використовуються для отримання зворотного зв’язку від користувача. Давайте розглянемо приклад нижче. Сценарій автоматично вставляє нові слайди до презентації.

Ось що ми впровадимо:

1. Спочатку ми підкажемо користувачеві кількість слайдів, які потрібно додати (за допомогою поля введення).
2. Потім ми повідомимо користувача про кількість слайдів, які потрібно створити (за допомогою вікна повідомлення)
3. Нарешті, буде створено слайди програмно.
4. Останнім ми збережемо змінену презентацію

Sub CreateSlidesMessage()

Dim NumSlides As Integer
Dim MsgResult As VbMsgBoxResult

' How many slides to create
NumSlides = InputBox("Enter number of slides to create", "Create Slides")

'User confirmation
MsgResult = MsgBox("Powerpoint will create " & NumSlides & " slides. Proceed?", vbApplicationModal, "Create Slides")

'create the slides
If MsgResult = vbOK Then
    For i = 1 To NumSlides
        Set NewSlide = ActivePresentation.Slides.Add(Index:=i + 1, Layout:=ppLayoutBlank)
    Next i
    'Save the Presentation
    ActivePresentation.SaveAs("Your Presentation.pptx")
    MsgBox ("Presentation Saved.")
End If

End Sub

Сподіваюся, це допомогло, не соромтеся залишати коментарі, якщо потрібно.