Question

I have a macro which is running from Excel. This macro opens PowerPoint slides, performs some work, and then closes them. The problem I am having is the following:

这一错误信息似乎在整个宏观运行期间随机出现。这一错误不能与保持一致,而且似乎随着时间的推移(基于某些种族条件),该行似乎还会随意操作。

造成这一错误的具体法典如下:

myPresentation.Close

Answer 1

我测试的情况:

myPresentation.saved=true
myPresentation.Close

哪一问题没有解决

myPresentation.saved=true
myPresentation.windows(1).activate
myPresentation.Close

也没有工作。最后,我提出的最稳定的解决办法如下:

 This function is implemented as a fix for an issue where VBA reports "Presentation.Close: Failed"
 @param pres as Object<PowerPoint.Presentation> - The presentation to close.
 @docs https://stackoverflow.com/questions/78156015/vba-powerpoint-run-time-error-2147467259-80004005-presentation-close-fail/78156016#78156016
Public Sub ClosePresentation(ByVal pres As Object)
  pres.windows(1).Activate
  While Not pres.Saved
    pres.Saved = True
  Wend
  stdWindow.CreateFromApplication(pres.Application).Quit
End Sub

该图书馆使用stdWindow ,这是一个开放源图书馆。归根结底,这意味着间接向窗口发出的近距离信息(通过Windows AP)似乎更为稳定,因为我认为,这正是用户通常如何关闭窗口。

必须指出,所挽救的环境似乎具有某些种族条件,因此也存在漏洞。

友情链接