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

最新推荐文章于 2024-08-12 10:24:39 发布

原创最新推荐文章于 2024-08-12 10:24:39 发布 · 1.2k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#application #class

Office Development 同时被 3 个专栏收录

134 篇文章

订阅专栏

Visual Studio 2010

40 篇文章

订阅专栏

VB.NET

14 篇文章

订阅专栏

本文提供了一个在PowerPoint幻灯片放映过程中动态插入内容的VBA示例代码，通过该方法可以在每切换到下一张幻灯片时自动添加当前页码。

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

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.youkuaiyun.com/detail/tx_officedev/4216212