vba - VBA presentations.open ：演示文稿在 End sub 后关闭，但不应该

Question

我在这里的第一个问题，如果我错误地违反了任何习俗或表达了我的问题，我深表歉意；）！

这个小代码集已经工作了 10 年，突然（我猜是办公室更新？！）有一个问题：

Sub open_macrotoolbox()

    Dim oPPTApp As PowerPoint.Application
    Dim oPPTPres As PowerPoint.Presentation

    Set oPPTApp = New PowerPoint.Application

    Set oPPTPres=oPPTApp.Presentations.Open("[PATH]\Blank.potm", WithWindow:=msoFalse)

End Sub

10 年来，它打开了带有隐藏窗口的空白.potm。为什么？因为在 blank-potm 中我放置了几个其他的帮助宏，它们是空白的，我可以点击 STRG+N 从任何演示文稿中访问这些帮助宏。

几天后，当到达“End Sub”时，blank.potm 再次关闭。这可以通过注释掉 withWindow:msoFalse 部分来避免。然后它不会关闭。

有任何想法吗？非常感激！！

最好的，安德烈亚斯

标签： vbapowerpoint