VBA Fans » Excel中VBA关闭PPS文件企业库|免费b2b网站

这个是EH上面的一个。双击打开PPS文件，在演示完后退出PPS时并没有PowerPoint主窗口保留，但在Excel中使用VBA打开的PPS文件，在演示完PPS退出后，PowerPoint主窗口仍然打开。
这里使用一个循环判断演示窗口是否存在，加上错误捕捉程序来处理上面这个问题。

Private Sub CommandButton1_Click()
    Dim wo As Object
    Dim app As Object
 
    ' 创建PowerPoint应用实例
    Set app = CreateObject("Powerpoint.Application")
    ' 使PowerPoint可见
    app.Visible = True
    ' 打开PPS文件
    Set wo = app.Presentations.Open(ThisWorkbook.Path &amp; "\a.pps")
 
    ' 当PPS演示结束时，wo对象的SlideShowWindow不存在，捕捉到错误
    On Error GoTo errHandle
    ' PPS演示时全屏
    Do While wo.SlideShowWindow.isFullScreen
        DoEvents
    Loop
errHandle:
    ' 退出PowerPoint
    app.Quit
    Set app = Nothing
    Set wo = Nothing
End Sub

下载： |

以上关联文章由提供支持。

, ,