Как запустить диалоговое окно с полями для заполнения в документе Powerpoint 2010/2013?

Question

Я хотел бы установить презентацию PPT, которая запускает диалоговое окно при открытии документа, где я мог бы напрямую заполнить некоторые поля информацией (например, имя моего клиента, название проекта и т.д.). Эта информация будет автоматически отображаться на некоторых слайдах моей презентации в определенных текстовых полях.

Это было бы легко, если бы я мог использовать инструмент записи макросов - как в Excel, Word или Powerpoint 2007, но эта функция была удалена с версии 2010 года. Я мог бы легко записать макрос, который начинается при открытии и просит пользователя заполнить диалоговое окно - или непосредственно текстовые поля на необходимых слайдах - но это больше не возможно.

Таким образом, я должен продолжать использовать VBA, но я ничего не знаю об этом коде. Вот почему я хотел бы найти фрагмент кода, который позволяет мне реализовать эту опцию в моем документе. Есть идеи?

Я работаю над PPT 2010.

Answer 1

Вы должны использовать поле ввода, чтобы получить значение (строку), а затем перейти к слайдам / фигурам и установить значение в строку ввода:

Sub test()
Dim x As String

x = InputBox("What is your name?", Name)
ActivePresentation.Slides(1).Shapes.Title.TextFrame.TextRange = x

End Sub

Это не так интуитивно, как Excel, я бы начал здесь

Или, если вы смелы, попробуйте пользовательскую форму