title | keywords | f1_keywords | api_name | ms.assetid | ms.date | ms.localizationpriority | ||
---|---|---|---|---|---|---|---|---|
Application.PresentationNewSlide event (PowerPoint) |
vbapp10.chm621008 |
|
|
e9718cad-6411-d013-6c93-0370aa71a8f2 |
06/08/2017 |
medium |
Occurs when a new slide is created in any open presentation, as the slide is added to the Slides collection.
expression. PresentationNewSlide
( _Sld_
)
expression An expression that returns an Application object.
Name | Required/Optional | Data type | Description |
---|---|---|---|
Sld | Required | Slide | The new slide. |
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
[!includeSupport and feedback]