Событие Application. Пресентатионневслиде (PowerPoint)Application.PresentationNewSlide event (PowerPoint)

Происходит при создании нового слайда в любой открытой презентации, так как слайд добавляется в коллекцию слайдов .Occurs when a new slide is created in any open presentation, as the slide is added to the Slides collection.

СинтаксисSyntax

выражение.expression. PresentationNewSlide( _Sld_ )

Expression (выражение ) Выражение, возвращающее объект Application .expression An expression that returns a Application object.

ПараметрыParameters

ИмяName Обязательный или необязательныйRequired/Optional Тип данныхData type ОписаниеDescription
СЛДSld ОбязательныйRequired SlideSlide Новый слайд.The new slide.

ПримерExample

В этом примере изменяется цвет фона для цветовой схемы 3, а затем применяется измененная цветовая схема к новому слайду.This example modifies the background color for color scheme three and then applies the modified color scheme to the new slide. Затем он добавляет текст по умолчанию, чтобы создать фигуру, если у него есть текстовая рамка.Next, it adds default text to shape one if it has a text frame.

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

См. такжеSee also

Объект ApplicationApplication Object

Поддержка и обратная связьSupport and feedback

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи?Have questions or feedback about Office VBA or this documentation? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.