提示用户在关闭if条件之前关闭PowerPoint

Question

我希望PowerPoint在powerPoint关闭之前，如果对象仍在演示文稿中，请提示用户。(我会标记的对象(。

因此，PowerPoint会检查该对象是否存在，并在其不存在时提示它们是否存在或关闭。

希望这有意义吗？问候，菲利普

我认为我需要使用if语句，但不确定我应该在哪里/应该如何处理。但是我完全迷失了困惑！？

Private Sub Application.Presentations()
Dim oSh As Shape
For Each oSh In ActiveWindow.Selection.ShapeRange
oSh.Tags.Add "Stamp"
Next
If MsgBox("A stamp is still on the presentation. Are you sure that you want to close this book?", vbYesNo) = vbYes Then 
    Exit Sub 
Else 
    Cancel = True 
End If 
End Sub

Answer 1

您需要学习如何使用PowerPoint事件以及如何创建加载项。AutoClose VBA命令或演示可乐事件要么将提供挂钩以挂在检查代码上。事件：使您的VBA代码在PowerPoint中响应事件加载项：使用运行宏的工具栏创建一个加载项