Vba 如何在PowerPoint中设置默认保存格式？

微软凭借其无限的智慧，决定Office 2010应用程序的默认文件格式应为发布时13年（Office 97-2002）的格式

较新的格式（2007和更新版本）将数据保存在压缩的XML文件中，压缩的XML文件要小得多，并且还允许许多附加功能。我们公司的IT部门没有或无法设置组策略来强制用户默认保存为新格式，因此我正在编写一个宏来调整部门中每个人的设置

我可以在Excel和Word中非常简单地执行以下VBA代码（我从Excel工作簿运行它）：

但是，我无法在PowerPoint中找到适当的设置进行调整。有人知道那房子在哪里或者叫什么吗

此代码将无法干净编译，在

PPT.DefaultSaveFormat

行中出现错误：

Public Sub SetPowerPointSave()

  Dim PPT As PowerPoint.Application
  Set PPT = New PowerPoint.Application

  PPT.DefaultSaveFormat = ppSaveAsOpenXMLPresentation
  PPT.Quit

  Set PPT = Nothing

End Sub

我在幻灯片里翻遍了，但我就是找不到我想要的东西。很可能我只是不知道自己在寻找什么，而只是忽略了它

---

有人知道我应该设置什么属性才能以编程方式更改此设置吗？

PPT 2007及更高版本的默认保存格式是新的XML格式（PPTX而不是PPT等）。如果用户（或IT人员通过策略）在文件| Save | Save files in this format:中覆盖了此项，则默认值将变为他们出于任何原因选择的内容

像这样的应用程序范围的默认值通常不会通过对象模型公开；它们存储在注册表中。在这种情况下，在

HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\PowerPoint\Options

PPTX的默认格式DWORD=27

将上述14.0替换为正确版本；2007年PPT为12.0，2010年PPT为14.0，依此类推（排名13.0）

---

如果您可以在PPT未运行时将所需的值写入注册表，则可以重置默认值。如果您在PPT运行时写入注册表，它不会影响PPT的当前实例，并且您的更改将在PPT退出时被覆盖。

我正在查找，并且

DefaultSaveFormat

不在其中，也不在对象浏览器中。。。我在查看

文件转换器

，

选项

，

文件验证

，但我没有看到它可能是什么。。。大多数都是只读的：/根据我目前有限的经验，微软似乎真的不希望人们在PPT上使用VBA（是的，我一点也不知道还有什么地方可以找……我甚至没有找到文件格式的枚举……看起来确实不太好……试着在官方MS论坛上发布，谁知道……祝你好运！你可能已经做了一些^^^哇，非常感谢！我花了几分钟注册了

defaultformat

是找到的密钥。）在..\Options中，因为在..\PowerPoint路径中有一个名为

Options

的键。但是，一旦我发现了这一点，它就会像一个符咒一样工作。+1&你的复选标记！@FreeMan很高兴听到它……感谢你让我们知道。

HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\PowerPoint\Options