Как работать с полями сообщений и ввода в 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

Надеюсь, это помогло, не стесняйтесь оставлять комментарии по мере необходимости.