通过

Application.PresentationNewSlide 事件 (PowerPoint)

  • 项目

在任意打开的演示文稿中新建幻灯片时发生，同时将该幻灯片添加到 Slides 集合中。

语法

expression。 PresentationNewSlide( _Sld_ )

表达 返回 Application 对象的表达式。

参数

名称 必需/可选 数据类型 说明
Sld 必需 Slide 新幻灯片。

示例

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

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

另请参阅

Application 对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。