Application Level

You must insert a new class module into your project.

Event	Description	365	16	13	10	07
AfterDragDropOnSlide	Occurs after an object with the clipboard format "PowerPoint Drop Trigger" has been dropped onto a slide.
AfterNewPresentation	Occurs after a new presentation is created.	Y	Y	Y	Y	Y
AfterPresentationOpen	Occurs after the user opens a presentation.	Y	Y	Y	Y	Y
AfterShapeSizeChanged	Occurs after an object (shape, picture, text box, chart, SmartArt as examples) has been resized.
ColorSchemeChanged	Occurs when the color scheme is changed.	Y	Y	Y	Y	Y
NewPresentation	Occurs when a new presentation is created.	Y	Y	Y	Y	Y
PresentationBeforeClose	Occurs before a presentation is closed.	Y	Y	Y	Y
PresentationBeforeSave	Occurs before a presentation is saved. The default response can be cancelled.	Y	Y	Y	Y	Y
PresentationClose	Occurs immediately before the user closes a presentation	Y	Y	Y	Y	Y
PresentationCloseFinal	Occurs before the user closes the last presentation in the session.	Y	Y	Y	Y
PresentationNewSlide	Occurs when a new slide is created in any open presentation.	Y	Y	Y	Y	Y
PresentationOpen	Occurs when the user opens a presentation.	Y	Y	Y	Y	Y
PresentationPrint	Occurs after a presentation has been sent to print	Y	Y	Y	Y	Y
PresentationSave	Occurs after a presentation is saved	Y	Y	Y	Y	Y
PresentationSync	Occurs when the local copy of a presentation that is part of a Document Workspace is synchronized with the copy on the server.	Y	Y	Y	Y	Y
ProtectedViewWindowActivate	Occurs when any Protected View window is activated.	Y	Y	Y	Y
ProtectedViewWindowBeforeClose	Occurs immediately before a Protected View window or a document in a Protected View window closes.	Y	Y	Y	Y
ProtectedViewWindowBeforeEdit	Occurs immediately before editing is enabled on the document in the specified Protected View window.	Y	Y	Y	Y
ProtectedViewWindowDeactivate	Occurs when a Protected View window is deactivated.	Y	Y	Y	Y
ProtectedViewWindowOpen	Occurs when a Protected View window is opened.	Y	Y	Y	Y
SlideSelectionChanged	Occurs when a slide or slide selection changes in any way except the Outline view.	Y	Y	Y	Y	Y
SlideShowBegin	Occurs when a slide show starts	Y	Y	Y	Y	Y
SlideShowEnd	Occurs when a slide shoe ends	Y	Y	Y	Y	Y
SlideShowNextBuild	Occurs after the next build starts	Y	Y	Y	Y	Y
SlideShowNextClick	Occurs after the slide show window is clicked.	Y	Y	Y	Y	Y
SlideShowNextSlide	Occurs after showing the next slide	Y	Y	Y	Y	Y
SlideShowOnNext	Occurs when the user clicks Next to move within the current slide.	Y	Y	Y	Y	Y
SlideShowOnPrevious	Occurs when the user clicks Previous to move within the current slide.	Y	Y	Y	Y	Y
WindowActivate	Occurs when any application or document window is activated.	Y	Y	Y	Y	Y
WindowBeforeDoubleClick	Occurs before a shape is double clicked in normal or slide view. Before a slide is double clicked in slide sorter view or the notes page view. The default response can be cancelled.	Y	Y	Y	Y	Y
WindowBeforeRightClick	Occurs before a shape, slide, notes page or text is clicked using the right mouse button. The default reponse can be cancelled. This event is fired twice if you select an object at the same time.	Y	Y	Y	Y	Y
WindowDeactivate	Occurs after an application or document window is activated.	Y	Y	Y	Y	Y
WindowSelectionChange	Occurs when the selection of a shape, slide or text is changed.	Y	Y	Y	Y	Y

Application Level Events

It is not possible to write event handlers for the Application object directly into a presentation.

VBA Samples

Private Sub Application_AfterDragDropOnSlide(ByVal Sld As Slide, _ 
   ByVal X As Single, _ 
   ByVal Y As Single) 
End Sub 

Private Sub Application_AfterNewPresentation(ByVal Pres As Presentation) 
End Sub 

Private Sub Application_AfterPresentationOpen(ByVal Pres As Presentation) 
End Sub 

Private Sub Application_AfterShapeSizeChange(ByVal shp As Shape) 
End Sub 

Private Sub Application_ColorSchemeChanged(ByVal SldRange As SlideRange) 
End Sub 

Private Sub Application_NewPresentation(ByVal Pres As Presentation) 
End Sub 

Private Sub Application_PresentationBeforeClose(ByVal Pres As Presentation, _ 
   Cancel As Boolean) 
End Sub 

Private Sub Application_PresentationBeforeSave(ByVal Pres As Presentation, _ 
   Cancel As Boolean) 
End Sub 

Private Sub Application_PresentationClose(ByVal Pres As Presentation) 
End Sub 

Private Sub Application_PresentationCloseFinal(ByVal Pres As Presentation) 
End Sub 

Private Sub Application_PresentationNewSlide(ByVal Sld As Slide) 
End Sub 

Private Sub Application_PresentationOpen(ByVal Pres As Presentation) 
End Sub 

Private Sub Application_PresentationPrint(ByVal Pres As Presentation) 
End Sub 

Private Sub Application_PresentationSave(ByVal Pres As Presentation) 
End Sub 

Private Sub Application_PresentationSync(ByVal Pres As Presentation, _ 
   ByVal SyncEventType As Office.MsoSyncEventType) 
End Sub 

Private Sub Application_ProtectedViewWindowActivate(ByVal ProtViewWindow As ProtectedViewWindow) 
End Sub 

Private Sub Application_ProtectedViewWindowBeforeClose(ByVal ProtViewWindow As ProtectedViewWindow, _ 
   ByVal ProtectedViewCloseReason As PpProtectedViewCloseReason, _ 
   Cancel As Boolean) 
End Sub 

Private Sub Application_ProtectedViewWindowBeforeEdit(ByVal ProtViewWindow As ProtectedViewWindow, _ 
   Cancel As Boolean) 
End Sub 

Private Sub Application_ProtectedViewWindowOpen(ByVal ProtViewWindow As ProtectedViewWindow) 
End Sub 

Private Sub Application_SlideSelectionChanged(ByVal SldRange As SlideRange) 
End Sub 

Private Sub Application_SlideShowBegin(ByVal Wn As SlideShowWindow) 
End Sub 

Private Sub Application_SlideShowEnd(ByVal Pres As Presentation) 
End Sub 

Private Sub Application_SlideShowNextBuild(ByVal Wn As SlideShowWindow) 
End Sub 

Private Sub Application_SlideShowOnNext(ByVal Wn As SlideShowWindow) 
End Sub 

Private Sub Application_SlideShowOnPrevious(ByVal Wn As SlideShowWindow) 
End Sub 

Private Sub Application_WindowActivate(ByVal Pres As Presentation, _ 
   ByVal Wn As DocumentWindow) 
End Sub 

Private Sub Application_WindowBeforeDoubleClick(ByVal Sel As Selection, _ 
   Cancel As Boolean) 
End Sub 

Private Sub Application_WindowBeforeRightClick(ByVal Sel As Selection, _ 
   Cancel As Boolean) 
End Sub 

Private Sub Application_WindowDeactivate(ByVal Pres As Presentation, _ 
   ByVal Wn As DocumentWindow) 
End Sub 

Private Sub Application_WindowSelectionChange(ByVal Sel As Selection) 
End Sub