Я хотел бы установить презентацию PPT, которая запускает диалоговое окно при открытии документа, где я мог бы напрямую заполнить некоторые поля информацией (например, имя моего клиента, название проекта и т. Д.). Эта информация будет автоматически отображаться на некоторых слайдах моей презентации в определенных текстовых полях.
Это было бы легко, если бы я мог использовать инструмент записи макросов - как в Excel, Word или Powerpoint 2007, но эта функция была удалена с версии 2010 года. Я мог бы легко записать макрос, который начинается при открытии и просит пользователя заполнить диалоговое окно - или непосредственно текстовые поля на необходимых слайдах - но это больше не возможно.
Таким образом, я должен продолжать использовать VBA, но я ничего не знаю об этом коде. Вот почему я хотел бы найти фрагмент кода, который позволяет мне реализовать эту опцию в моем документе. Есть идеи?
Я работаю над PPT 2010.
You have to use an inputbox to get the value (string) and then navigate to the slides/shapes and set the value to the inputbox string:
Sub test() Dim x As String x = InputBox("What is your name?", Name) ActivePresentation.Slides(1).Shapes.Title.TextFrame.TextRange = x End Sub It's not as intuitive as excel, I'd start here
Or, if you're brave, try a userform