1

此 VBS 可与 PowerPoint 2010、2003 配合使用

Set pptApp = CreateObject("Powerpoint.Application")
pptApp.Visible = True
pptApp.WindowState = 2
Set ppt = pptApp.Presentations.Open("c:\temp\test.pptx")

但是 PowerPoint 2013 的最后一行有问题

Unspecified error
4

1 回答 1

-1

如果缺少某些特权,则会发生此错误。在此文件的属性-> 安全性中检查它。

另请注意,Microsoft 已开始使用 Visual Studio for Applications 而不是 VBA,因此不再推荐使用 VBA。

于 2013-02-13T15:57:32.693 回答