在幻灯片放映过程中动态插入内容
以下示例用来展示在放映幻灯片的过程中动态插入内容。
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
征诛志异,三让两家王朝;功同开辟,一桮万古江南。