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
© 2023 Better Solutions Limited. All Rights Reserved. © 2023 Better Solutions Limited TopPrevNext