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

时间:2016-10-10 15:19:36

标签: vba excel-vba excel-2010 powerpoint-2010 excel

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

较新的格式(2007及更新版本)将数据保存在压缩的XML文件中,这些文件要小得多,并且还允许许多其他功能。我们的公司IT部门没有或无法设置组策略以强制用户默认以新格式保存,因此我编写宏来调整我们部门中每个人的设置。

我可以通过执行以下VBA代码(我从Excel工作簿运行它)在Excel和Word中执行此操作:

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,但我还没找到我之后的内容。我很可能不知道自己在寻找什么,只是忽略了它。

是否有人知道我应该设置哪些属性以便能够以编程方式更改此内容?

1 个答案:

答案 0 :(得分:1)

PPT 2007及更高版本的默认保存格式是新的XML格式(PPTX而不是PPT等)。如果用户(或IT人员通过策略)在File |中覆盖了此项保存|以这种格式保存文件:然后默认为他们选择的任何内容,无论出于何种原因。

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

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

PPTX的DefaultFormat DWORD = 27

替换14.0以上的正确版本; 2007年PPT为12.0,2010年为14.0,等等(无13.0)。

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