如何在 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 那么直观，我会开始这里

或者，如果你够勇敢，可以尝试一下用户表单