PowerPoint VBA教程:PresentationNewSlide事件

在任意打开的演示文稿中新建幻灯片时发生此事件,同时新演示文稿会添加到Slides集合中。

Private Sub application_PresentationNewSlide(ByVal Sld As Slide)

application   Application 类型的对象,在类模块中声明,自身具有事件。有关使用 Application对象的事件的详细信息,请参阅使用 Application对象的事件

Sld   新幻灯片。

VBA示例

本示例修改第三种配色方案的背景色,再将修改后的配色方案应用于新幻灯片。接下来,如果第一个形状具有文本框,则向该形状添加默认文本。


Private Sub App_PresentationNewSlide(ByVal Sld As Slide)
    With ActivePresentation
        Set CS3 = .ColorSchemes(3)
        CS3.Colors(ppBackground).RGB = RGB(240, 115, 100)
        Windows(1).Selection.SlideRange.ColorScheme = CS3
    End With
    If Sld.Layout <> ppLayoutBlank Then
        With Sld.Shapes(1)
            If .HasTextFrame = msoTrue Then
               .TextFrame.TextRange.Text = "King Salmon"
            End If
        End With
    End If
End Sub

上页:PowerPoint VBA教程:PresentationClose事件 下页:PowerPoint VBA教程:PresentationOpen事件

PowerPoint VBA教程:PresentationNewSlide事件

PowerPoint VBA教程:PresentationOpen事件 PowerPoint VBA教程:PresentationPrint事件
PowerPoint VBA教程:PresentationSave事件 PowerPoint VBA教程:SlideSelectionChanged事件
PowerPoint VBA教程:SlideShowBegin事件 PowerPoint VBA教程:SlideShowEnd事件
PowerPoint VBA教程:SlideShowNextBuild事件 PowerPoint VBA教程:SlideShowNextClick事件
PowerPoint VBA教程:SlideShowNextSlide事件 PowerPoint VBA教程:WindowActivate事件
PowerPoint VBA教程:WindowBeforeDoubleClick事件 PowerPoint VBA教程:WindowBeforeRightClick事件
PowerPoint VBA教程:WindowDeactivate事件 PowerPoint VBA教程:WindowSelectionChange事件
PowerPoint VBA教程:隐藏的语言元素 PowerPoint VBA教程:在文档中添加控件
PowerPoint VBA教程:在用户窗体中添加控件 PowerPoint VBA教程:控件和对话框事件
PowerPoint VBA教程:在一个 Microsoft Office 应用程序中控制另一个 Microsoft Office 应用程序 PowerPoint VBA教程:创建自定义对话框
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号