1

次の VB スクリプトを使用して呼び出したい PowerPoint ファイル test.pptm にマクロ runTest があります。スクリプトが 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
4

2 に答える 2

2

追加して問題を解決しました

    pptApp.Visible = True

pptApp を作成した後、プレゼンテーションを開く前。

于 2013-09-05T08:36:31.513 に答える
0

Powerpoint を起動する必要がある場合は、vbscript の一部として起動をトリガーします。

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

インストールされているバージョンを確認し、適切なexeファイルを呼び出すためにエラー処理を組み込むことができます

于 2013-09-04T13:12:44.907 に答える