PowerPoint Application事件

Private Sub Application_AfterDragDropOnSlide(ByVal Sld As PowerPoint.Slide, ByVal X As Single, ByVal Y As Single)

End Sub

Private Sub Application_AfterNewPresentation(ByVal Pres As PowerPoint.Presentation)

End Sub

Private Sub Application_AfterPresentationOpen(ByVal Pres As PowerPoint.Presentation)

End Sub

Private Sub Application_AfterShapeSizeChange(ByVal shp As PowerPoint.Shape)

End Sub

Private Sub Application_ColorSchemeChanged(ByVal SldRange As PowerPoint.SlideRange)

End Sub

Private Sub Application_NewPresentation(ByVal Pres As PowerPoint.Presentation)

End Sub

Private Sub Application_PresentationBeforeClose(ByVal Pres As PowerPoint.Presentation, Cancel As Boolean)

End Sub

Private Sub Application_PresentationBeforeSave(ByVal Pres As PowerPoint.Presentation, Cancel As Boolean)

End Sub

Private Sub Application_PresentationClose(ByVal Pres As PowerPoint.Presentation)

End Sub

Private Sub Application_PresentationCloseFinal(ByVal Pres As PowerPoint.Presentation)

End Sub

Private Sub Application_PresentationNewSlide(ByVal Sld As PowerPoint.Slide)

End Sub

Private Sub Application_PresentationOpen(ByVal Pres As PowerPoint.Presentation)

End Sub

Private Sub Application_PresentationPrint(ByVal Pres As PowerPoint.Presentation)

End Sub

Private Sub Application_PresentationSave(ByVal Pres As PowerPoint.Presentation)

End Sub

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

End Sub

Private Sub Application_ProtectedViewWindowActivate(ByVal ProtViewWindow As PowerPoint.ProtectedViewWindow)

End Sub

Private Sub Application_ProtectedViewWindowBeforeClose(ByVal ProtViewWindow As PowerPoint.ProtectedViewWindow, ByVal ProtectedViewCloseReason As PowerPoint.PpProtectedViewCloseReason, Cancel As Boolean)

End Sub

Private Sub Application_ProtectedViewWindowBeforeEdit(ByVal ProtViewWindow As PowerPoint.ProtectedViewWindow, Cancel As Boolean)

End Sub

Private Sub Application_ProtectedViewWindowDeactivate(ByVal ProtViewWindow As PowerPoint.ProtectedViewWindow)

End Sub

Private Sub Application_ProtectedViewWindowOpen(ByVal ProtViewWindow As PowerPoint.ProtectedViewWindow)

End Sub

Private Sub Application_SlideSelectionChanged(ByVal SldRange As PowerPoint.SlideRange)

End Sub

Private Sub Application_SlideShowBegin(ByVal Wn As PowerPoint.SlideShowWindow)

End Sub

Private Sub Application_SlideShowEnd(ByVal Pres As PowerPoint.Presentation)

End Sub

Private Sub Application_SlideShowNextBuild(ByVal Wn As PowerPoint.SlideShowWindow)

End Sub

Private Sub Application_SlideShowNextClick(ByVal Wn As PowerPoint.SlideShowWindow, ByVal nEffect As PowerPoint.Effect)

End Sub

Private Sub Application_SlideShowNextSlide(ByVal Wn As PowerPoint.SlideShowWindow)

End Sub

Private Sub Application_SlideShowOnNext(ByVal Wn As PowerPoint.SlideShowWindow)

End Sub

Private Sub Application_SlideShowOnPrevious(ByVal Wn As PowerPoint.SlideShowWindow)

End Sub

Private Sub Application_WindowActivate(ByVal Pres As PowerPoint.Presentation, ByVal Wn As PowerPoint.DocumentWindow)

End Sub

Private Sub Application_WindowBeforeDoubleClick(ByVal Sel As PowerPoint.Selection, Cancel As Boolean)

End Sub

Private Sub Application_WindowBeforeRightClick(ByVal Sel As PowerPoint.Selection, Cancel As Boolean)

End Sub

Private Sub Application_WindowDeactivate(ByVal Pres As PowerPoint.Presentation, ByVal Wn As PowerPoint.DocumentWindow)

End Sub

Private Sub Application_WindowSelectionChange(ByVal Sel As PowerPoint.Selection)

End Sub

标签：End,Sub,ByVal,Private,Application,事件,PowerPoint
来源： https://www.cnblogs.com/ryueifu-VBA/p/14969330.html