Application Level

You must insert a new class module into your project.


EventDescription36516131007
AfterDragDropOnSlideOccurs after an object with the clipboard format "PowerPoint Drop Trigger" has been dropped onto a slide.     
AfterNewPresentationOccurs after a new presentation is created.YYYYY
AfterPresentationOpenOccurs after the user opens a presentation.YYYYY
AfterShapeSizeChangedOccurs after an object (shape, picture, text box, chart, SmartArt as examples) has been resized.     
ColorSchemeChangedOccurs when the color scheme is changed.YYYYY
NewPresentationOccurs when a new presentation is created.YYYYY
PresentationBeforeCloseOccurs before a presentation is closed.YYYY 
PresentationBeforeSaveOccurs before a presentation is saved. The default response can be cancelled.YYYYY
PresentationCloseOccurs immediately before the user closes a presentationYYYYY
PresentationCloseFinalOccurs before the user closes the last presentation in the session.YYYY 
PresentationNewSlideOccurs when a new slide is created in any open presentation.YYYYY
PresentationOpenOccurs when the user opens a presentation.YYYYY
PresentationPrintOccurs after a presentation has been sent to printYYYYY
PresentationSaveOccurs after a presentation is savedYYYYY
PresentationSyncOccurs when the local copy of a presentation that is part of a Document Workspace is synchronized with the copy on the server.YYYYY
ProtectedViewWindowActivateOccurs when any Protected View window is activated.YYYY 
ProtectedViewWindowBeforeCloseOccurs immediately before a Protected View window or a document in a Protected View window closes.YYYY 
ProtectedViewWindowBeforeEditOccurs immediately before editing is enabled on the document in the specified Protected View window.YYYY 
ProtectedViewWindowDeactivateOccurs when a Protected View window is deactivated.YYYY 
ProtectedViewWindowOpenOccurs when a Protected View window is opened.YYYY 
SlideSelectionChangedOccurs when a slide or slide selection changes in any way except the Outline view.YYYYY
SlideShowBeginOccurs when a slide show startsYYYYY
SlideShowEndOccurs when a slide shoe endsYYYYY
SlideShowNextBuildOccurs after the next build startsYYYYY
SlideShowNextClickOccurs after the slide show window is clicked.YYYYY
SlideShowNextSlideOccurs after showing the next slideYYYYY
SlideShowOnNextOccurs when the user clicks Next to move within the current slide.YYYYY
SlideShowOnPreviousOccurs when the user clicks Previous to move within the current slide.YYYYY
WindowActivateOccurs when any application or document window is activated.YYYYY
WindowBeforeDoubleClickOccurs 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.YYYYY
WindowBeforeRightClickOccurs 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.YYYYY
WindowDeactivateOccurs after an application or document window is activated.YYYYY
WindowSelectionChangeOccurs when the selection of a shape, slide or text is changed.YYYYY

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