Question

我在PowerPoint文件test.pptm中有一个宏runTest，我希望使用以下VB脚本调用它。在使用Office 2010的计算机上调用脚本时，一切运行良好，但只有在调用脚本之前已打开PowerPoint应用程序，脚本才能与Office 2007一起使用。我很想知道是否有人遇到过类似的问题，或者听到任何可能的解决方案。

Option Explicit
On Error Resume Next

RunProcess

Sub RunProcess() 

    Dim pptApp 
    Dim pptPresentation 
    Set pptApp = CreateObject("PowerPoint.Application") 
    Set pptPresentation = pptApp.Presentations.Open("C:\test.pptm", True) 
    pptApp.Run "test.pptm!runTest"
    pptApp.Quit 
    Set pptPresentation = Nothing 
    Set pptApp = Nothing 

 End Sub

Answer 1

我通过添加

解决了这个问题

    pptApp.Visible = True

创建pptApp之后和打开演示文稿之前。

Answer 2

如果它需要Powerpoint启动，我只会触发启动作为vbscript的一部分

Set WshShell = wscript.CreateObject("wscript.Shell")
WshShell.Run "C:\Program Files (x86)\Microsoft Office\Office12\POWERPNT.EXE"

您可以构建一些错误处理以查看安装了哪个版本，并调用相应的exe文件

Presentations.Open要求PowerPoint 2007开放吗？

2 个答案: