使用 ppLayoutCustom 在 VBA 中將空白幻燈片添加到 PowerPoint

Question

我閱讀了 object 瀏覽器及其關於Slides.AddSlide 方法的簽名。

Dim pptSlide As Slide
Set pptSlide = ActivePresentation.Slides.AddSlide(ActivePresentation.Slides.Count + 1, pCustomLayout:=ppLayoutCustom)

但是，當我在宏中運行它時，出現錯誤：

ppLayoutCustom 被突出顯示和“編譯錯誤：類型不匹配”。

請問我做錯了什么？

Answer 1

空白幻燈片是預設布局，而不是自定義布局。 添加空白幻燈片的方法如下：

Public Sub BlankSlide()
    Dim oSlide As Slide
 
    Set oSlide = ActivePresentation.Slides.Add(Index:=2, Layout:=ppLayoutBlank)
End Sub

Answer 2

你沒有顯示你從哪里得到ppLayoutCustom 。

https://docs.microsoft.com/en-us/office/vba/api/powerpoint.slides.addslide有這個您可能會關注的示例代碼？

Public Sub Add_Example() 
 
    Dim pptSlide As Slide 
    Dim pptLayout As CustomLayout 
 
    Set pptLayout = ActivePresentation.Slides(1).CustomLayout       '  do this first
    Set pptSlide = ActivePresentation.Slides.AddSlide(2, pptLayout) 
 
End Sub