Событие Application.PresentationNewSlide (PowerPoint)

Возникает при создании нового слайда в любой открытой презентации при добавлении слайда в коллекцию "Слайды ".

Синтаксис

выражение. 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 и обратная связь.