PowerPoint，演示结束后活动

Question

PowerPoint 2007 仅公开单个演示文稿关闭事件 (PresentationClose)，在演示文稿关闭之前引发。

在我正在处理的几段代码中，我需要跟踪打开的演示文稿，从而对其中一个演示文稿的关闭做出反应。

一般来说PowerPoint提出的事件就足够了。但以下情况除外。

如果演示文稿在关闭时尚未保存，PowerPoint 将显示一个对话框，询问用户是否要保存演示文稿。如果用户单击“是”或“否”，一切都会很好，因为演示文稿最终将关闭。但他也可以选择取消关闭...

在这种情况下，关闭事件被引发，演示文稿仍然存在，但我的应用程序不知道它。

有人可以给我某种解决方法吗？也许是用户单击取消后引发的事件？

Answer 1

您可能需要 PresentationBeforeClose< /代码>或PresentationCloseFinal 添加于 PowerPoint 2010。

如果用户在出现提示时单击“是”进行保存，然后单击“取消”退出“保存演示文稿”窗口，也可能会出现同样的问题。这仍然使演示文稿在应用程序中保持活动状态。

我想出的 PowerPoint 2007 解决方法（灵感来自此处）：

---

void Application_PresentationClose(PowerPoint.Presentation presentation)
{
    if (presentation.Saved == MsoTriState.msoFalse)
    {
        MessageBoxResult savePrompt = MessageBox.Show(string.Format("Do you want to save the changes you made to {0}?", presentation.Application.ActiveWindow.Caption), Globals.ThisAddIn.Application.Name, MessageBoxButton.YesNoCancel, MessageBoxImage.Warning, MessageBoxResult.Yes);
        if (savePrompt == MessageBoxResult.Yes)
            System.Windows.Forms.SendKeys.Send("Y"); // trigger default SaveAs prompt
        else if (savePrompt == MessageBoxResult.No)
            System.Windows.Forms.SendKeys.Send("N"); // discard presentation
        else
            System.Windows.Forms.SendKeys.Send("{ESC}"); // disables default SaveAs prompt
    }
}

Answer 2

我想这样的事情就可以做到：

Private Sub PPTEvent_PresentationClose(ByVal Pres As Presentation)

  Dim x as Long
  with Application.Presentations
  If .Count > 0 Then
    For x = 1 to .Count
      If .Item(x) = Pres Then
         ' the presentation that triggered the event
         ' is still open; user must've canceled
      Else

      End If
    Next
  End if