PowerPoint) (Application.PresentationNewSlide 事件

會發生在任何開啟的簡報中建立新投影片時，也就是當投影片新增至 Slides 集合時。

語法

expression。 PresentationNewSlide( _Sld_ )

表達 會傳回 Application 物件的運算式。

參數

範例

這個範例修改第三個色彩配置的背景色彩，然後將修改過的色彩配置套用至新的投影片。 接著，如果第一個圖案具有文字圖文框，則會在該圖案中新增預設文字。

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 支援與意見反應。