excel - 从 Excel 关闭 PowerPoint 中的显示警报

Question

我正在编写一个宏，用于从 Excel 打开和关闭 PowerPoint 演示文稿。现在我遇到一个问题，当我尝试保存 PowerPoint 文件时，会弹出一个消息框。为了解决这个问题，我使用了:

Application.DisplayAlerts = False

但是，这在某些情况下有效，因为我循环浏览多个演示文稿，但并非全部。所以我尝试这样做:

pptPres.Application.DisplayAlerts = False

但这只会导致显示警报总是弹出。

所以我尝试使用复制它

Application.DisplayAlerts = True

这不起作用。所以我很困惑我做错了什么。我需要关闭 DisplayAlerts ，否则我的宏将停止。

当我打开带有宏的 PowerPoint 时，会出现此问题，因此在保存时会询问是否使用宏来保存 *.pptm 文件。

这是我当前的代码，也许您可​​以复制该问题:

Dim pptPres As PowerPoint.Presentation

Set pptApp = CreateObject("powerpoint.Application")

Set pptPres = pptApp.Presentations.Open(strPfad & strDat, False, True, True)

pptPres.Application.DisplayAlerts = False


strFirma = "Test123"
pptPres.SaveAs strPfad + "\Berichte" & "\" & strFirma & ".pptx"
pptPres.Close

非常感谢任何帮助。

Answer 1

Powerpoint 的 Application.DisplayAlerts 略有不同。它有两个选项:ppAlertsAll和ppAlertsNone .

尝试pptApp.DisplayAlerts = ppAlertsNone 。请注意，您混合了早期绑定(bind)和后期绑定(bind)，并且可能应该保持一致。如果您选择后期绑定(bind)，ppAlertsAll对应的值为2 ，和ppAlertsNone对应的值为1 .

感谢 @Matthieu Guindon 指出由于您是从 Excel 运行此命令，Application指Excel.Application ，这不是您的 PowerPoint 实例。因此Application.DisplayAlerts根本不会影响 PowerPoint 的警报设置。您想与 pptApp 合作，PowerPoint 的实例。