在幻灯片放映过程中动态插入内容

以下示例用来展示在放映幻灯片的过程中动态插入内容。

Public Class ThisAddIn
    Private WithEvents PPApp As PowerPoint.Application

    Private Sub ThisAddIn_Startup() Handles Me.Startup
        PPApp = Application
    End Sub

    Private Sub ThisAddIn_Shutdown() Handles Me.Shutdown

    End Sub

    Private Sub PPApp_SlideShowNextSlide(ByVal Wn As  _
                                         PowerPoint.SlideShowWindow) _
                                     Handles PPApp.SlideShowNextSlide
        Dim slide As PowerPoint.Slide
        Dim shape As PowerPoint.Shape

        slide = Wn.View.Slide
        shape = slide.Shapes.AddLabel(Microsoft.Office.Core.MsoTextOrientation.msoTextOrientationHorizontal, 0, 0, 100, 100)
        shape.TextFrame.TextRange.Text = "This is page : " & CStr(slide.SlideIndex)
    End Sub

End Class

相关资源：http://download.csdn.net/detail/tx_officedev/4216212