Excel宏调用PowerPoint时随机出现Presentation.Close失败错误求助

我有一个Excel宏，会打开PowerPoint幻灯片、执行操作后关闭，但运行时随机弹出错误：VBA PowerPoint Run-time error '-2147467259' (80004005): Presentation.Close: Failed。这个错误没法用On Error GoTo Label捕获，而且和时间有关（竞态条件），同一行代码后续可能又正常运行，触发错误的代码是：

myPresentation.Close

以下是几种实用的解决思路：

• 添加延迟等待PowerPoint操作完成
  竞态条件大概率是因为PowerPoint还没处理完之前的操作，就被触发了关闭指令。可以在Close前加一段等待：
  用系统API的Sleep函数（需要先声明）：

  Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
  
  ' 在Close前调用，等待500毫秒，可根据实际调整时长
  Sleep 500
  myPresentation.Close
  

  或者用DoEvents循环做柔性等待，避免硬性延迟占用资源：

  Dim startTime As Double
  startTime = Timer
  Do While Timer < startTime + 0.5 ' 等待0.5秒
      DoEvents
  Loop
  myPresentation.Close
  

• 关闭前释放关联资源
  确保所有和演示文稿绑定的对象都被释放，比如先停止幻灯片播放、清空自定义对象引用：

  ' 如果幻灯片在播放状态，先退出播放
  If myPresentation.SlideShowWindow Is Not Nothing Then
      myPresentation.SlideShowWindow.View.Exit
  End If
  ' 释放自定义对象引用（如果有）
  Set myShape = Nothing
  Set mySlide = Nothing
  ' 再执行关闭
  myPresentation.Close
  

• 配合PowerPoint应用进程退出清理
  如果不需要保留PowerPoint进程，可以先关闭演示文稿再退出应用，同时强制清理对象：

  On Error Resume Next ' 临时捕获退出时的潜在错误
  myPresentation.Close SaveChanges:=ppSaveChanges ' 按需设置保存选项，比如ppDoNotSaveChanges
  Set myPresentation = Nothing
  PowerPointApp.Quit
  Set PowerPointApp = Nothing
  On Error GoTo 0 ' 恢复默认错误处理
  

• 清理PowerPoint后台残留进程
  有时候后台残留的PowerPoint进程会导致冲突，可以在宏运行前检查并结束未正常退出的进程：

  Dim objWMIService As Object, objProcess As Object, colProcesses As Object
  Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
  Set colProcesses = objWMIService.ExecQuery("Select * from Win32_Process Where Name = 'POWERPNT.EXE'")
  For Each objProcess In colProcesses
      objProcess.Terminate
  Next
  

  注意：这个方法会关闭所有PowerPoint进程，使用前确保没有未保存的其他演示文稿。

内容的提问来源于stack exchange，提问作者Sancarn