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