PPT事件

PPT的事件无法在slde模块直接录入，需要通过创建类并实例化来完成

一、在class模块

Option Explicit
Public WithEvents pptApp As Application

Private Sub Class_Initialize()
    MsgBox "实例化了PPT类"
End Sub

Private Sub pptApp_WindowSelectionChange(ByVal Sel As Selection)
    MsgBox "WindowSelectionChange事件发生"
End Sub

二、在模块内 1 

Option Explicit 2 Private ppt As New pptClass
Sub initializeMain()
    Set ppt.pptApp = Application
End Sub

Sub extClass()
    Set ppt= Nothing
End Sub

'在鼠标单击动画或确定动画时长时（但在动画对象出现之后）发生此事件。
Sub OnSlideShowNextBuild(ByVal Wn As SlideShowWindow)
    MsgBox Wn.Width
End Sub
'单击上一张时触发
Sub OnSlideShowPreviousBuild(ByVal Wn As SlideShowWindow)
    MsgBox Wn.Height
End Sub
'   -----------------------------下面两个可用来初始化数据-------------------------
'在换片之后激活事件
Sub OnSlideShowPageChange(ByVal Wn As SlideShowWindow)

End Sub
'在结束放映后激活事件。
Sub OnSlideShowTerminate(ByVal Wn As SlideShowWindow)
  call  extClass
End Sub