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

Question

Microsoft 以其无穷的智慧决定 Office 2010 应用程序的默认文件格式应该是发布时已有 13 年历史的格式 (Office 97-2002)。

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

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

Public Sub SetExcelSave()

  Dim myExcel As Excel.Application

  Set myExcel = New Excel.Application
  Excel.DefaultSaveFormat = xlOpenXMLWorkbook
  Excel.Quit

  Set Excel = Nothing

End Sub

Public Sub SetWordSave()

  Dim myWord As Word.Application
  Set myWord = New Word.Application

  Word.DefaultSaveFormat = wdFormatDocumentDefault
  Word.Quit

  Set Word = Nothing

End Sub

但是，我无法在 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

我在Office Application Object documentation 中翻遍了 PowerPoint，但只是找不到我想要的东西。我很可能只是不知道自己在寻找什么，而只是忽略了它。

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

Answer 1

PPT 2007 及更高版本的默认保存格式是新的 XML 格式（PPTX 而不是 PPT 等）。如果用户（或通过策略的 IT 人员）在 File |保存 |以这种格式保存文件：然后无论出于何种原因，默认值都会变为他们选择的任何内容。

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

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

默认格式 DWORD=27 用于 PPTX

用正确的版本替换上面的14.0； PPT 2007 为 12.0，2010 为 14.0，依此类推（没有 13.0）。

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