如何在 VBA 中分配自定义 PowerPoint 模板答案

【问题标题】：How to Assign A Custom PowerPoint Template in VBA如何在 VBA 中分配自定义 PowerPoint 模板
【发布时间】：2015-09-22 15:06:34
【问题描述】：

我正在 Excel 中编写一个宏，它创建一个新的 PowerPoint 并将工作簿中的文本插入到幻灯片的特定区域。我已经为 5 张幻灯片创建了自定义布局，但不知道将 PowerPoint 模板文件保存在哪里以及如何在使用 VBA 之后引用它？

【问题讨论】：

【解决方案1】：

您可以通过以下三种方式之一找到当前模板文件夹：

通过用户界面点击文件 / 另存为 并选择 .potx 文件类型。这将生成格式为 C:\Users[USERNAME]\AppData\Roaming\Microsoft\Templates 的文件夹，您可以使用以下命令在 VBA 中生成它：

sPath = Environ("APPDATA") & "\Microsoft\Templates"
通过用户界面单击文件 / 选项 / 保存并查找字段默认个人模板位置
根据this Microsoft article，通过编程方法使用 Windows API 调用从 Windows 注册表中提取路径。

一旦你知道模板文件在哪里，你就可以使用这个方法来应用它：

ActivePresentation.ApplyTemplate [filename]

【讨论】：

顺便说一下，这是 PowerPoint 2013 的注册表值：HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\PowerPoint\Options\PersonalTemplates
感谢 JamieG 的回复。我正在运行 PowerPoint 2010。仍然无法让新创建的 PowerPoint 使用我保存在相应文件夹中的模板：C:\Users[USERNAME]\AppData\Roaming\Microsoft\Templates。
似乎是什么问题？有什么具体的代码可以分享吗？