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

Question

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

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

我可以在 Excel 和 Word 中非常简单地执行以下 VBA 代码（我运行来自 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 人员通过策略）在文件 |保存 |以这种格式保存文件：然后无论出于何种原因，默认都会成为他们选择的任何格式。

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

HKEY_CURRENT_USER\Software\Microsoft\Office.0\PowerPoint\Options

PPTX 的默认格式 DWORD=27

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

如果您可以将您想要的值写入注册表当 PPT 不是运行 时，您可以重置默认值。如果你在PPT运行时写入reg，不会影响当前PPT实例，当PPT退出时你的修改会被覆盖

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

How do I set the default save format in PowerPoint?

excel

vba

excel-2010

powerpoint-2010