Question

我正在尝试通过VBScript打开我在PPTM文件中创建的用户表单。 VB脚本的代码如下。这确实有效。它只是打开宏PPTM并关闭它。有什么建议吗？

Option Explicit

Dim pptApp, pptPresentation, CurrentDirectory

dim fso: set fso = CreateObject("Scripting.FileSystemObject")

CurrentDirectory = fso.GetAbsolutePathName(".")

Set pptApp = CreateObject("PowerPoint.Application")
Set pptPresentation = pptApp.Presentations.Open(CurrentDirectory + "\Revison Macro V1.pptm",True)

On Error Resume Next
pptApp.Run "Revision"
If Err Then

End If

pptPresentation.Close
pptApp.Quit

Set pptPresentation = Nothing
Set pptApp = Nothing

WScript.Quit

Answer 1

几个代码修订

Set pptPresentation = pptApp.Presentations.Open(CurrentDirectory + "\Revison Macro V1.pptm",True)＆gt;＆gt; VBScript使用＆＃34;＆amp;＆＃34;而不是＆＃34; +＆＃34;即使这样工作正常，坚持正确的字符串处理也会更好。
需要间接调用userform来暂停vbscript。因此，创建一个单独的Sub并将其称为＆＃34; Call_Revision＆＃34;。代码将简单明了，如下所示：
```
Sub Call_Revision
    Revision.Show
End Sub
```
执行.Run命令时，需要知道如何查找运行UserForm的代码。所以现在我们已经建立了sub，我们可以使用它来显示表单。

来自：pptApp.Run "Revision"

收件人：pptApp.Run "Revison Macro V1.pptm!Module1.Call_Revision"

如果您正在等待用户关闭userform以执行其余代码并退出PPTM文件，则可以在Userform中应用以下OnClose事件：

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
     Application.Quit
End Sub

完整代码：

Option Explicit
Dim currppt : currppt = "Revison Macro V1.pptm"
Dim ModuleName: ModuleName = "Module1"
Dim OpenUF : OpenUF = "Call_Revision"
Dim pptApp, pptPresentation, CurrentDirectory
dim fso: set fso = CreateObject("Scripting.FileSystemObject")
CurrentDirectory = fso.GetAbsolutePathName(".")
Set pptApp = CreateObject("PowerPoint.Application")
Set pptPresentation = pptApp.Presentations.Open(CurrentDirectory & "\" & currppt,True)
On Error Resume Next
pptApp.Run currppt & "!" & ModuleName & "." & OpenUF
msgbox "Done"

pptPresentation.Close
pptApp.Quit

Set pptPresentation = Nothing
Set pptApp = Nothing

通过VBScript在Powerpoint中打开用户表单

1 个答案: