Application.PresentationNewSlide-Ereignis (PowerPoint)

Artikel
04/07/2023

Tritt beim Erstellen einer neuen Folie in einer geöffneten Präsentation ein, sobald die Folie der Slides -Auflistung hinzugefügt wird.

Syntax

Ausdruck. PresentationNewSlide( _Sld_ )

Ausdruck Ein Ausdruck, der ein Application-Objekt zurückgibt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Sld	Erforderlich	Slide	Die neue Folie.

Beispiel

In diesem Beispiel wird die Hintergrundfarbe für das Farbschema 3 geändert und das geänderte Farbschema für die neue Folie übernommen. Danach wird Standardtext in Form 1 eingefügt, wenn diese über einen Textrahmen verfügt.

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

Siehe auch

Application-Objekt

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Freigeben über