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

Статья
04/07/2023

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

Синтаксис

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

Поделиться через