vbscript - 查找幻灯片的属性

Question

如果我使用 VBScript 打开 PowerPoint 演示文稿，是否可以在打开的 PowerPoint 中自动找到用于每张幻灯片的模板名称？有没有我可以找到幻灯片的属性？

Answer 1

开始使用此类内容的规范方法是将其记录为 VBA 中的宏，然后将该宏“翻译”为 VBScript。此处描述了翻译时要注意的事项。

在你的情况下，这样的事情可能会做：

Set pp = CreateObject("PowerPoint.Application")
pp.Visible = True

Set presentation = pp.Presentations.Open("C:\path\to\your.ppt")
WScript.Echo presentation.TemplateName
slide.Close

每张幻灯片的布局可以这样检索：

For Each slide In presentation.Slides
  WScript.Echo slide.Layout
Next

请注意，这将返回布局的编号。如果你想要一个名字，你必须创建一个字典，将数字映射到布局名称。

Answer 2

我不确定这在 VBS 中是如何工作的，但在 VBA 中你可以：

Set pp = CreateObject("PowerPoint.Application")
'pp.Visible = True

Set presentation = pp.Presentations.Open("C:\path\to\your.ppt", False, False, False)

Presentations.Open 通常在新的可见窗口中打开演示文稿；为了做到这一点，应用程序必须是可见的（否则你会得到一个错误）。这就是为什么您需要使 PPT 可见的原因。如果您无窗口打开演示文稿（上面的最后一个 False 参数），则不需要使应用程序可见。