Excel VBAから新しいpptスライドを追加できません。エラー429

Question

私は、ExcelデータをPowerPointに書き出す必要があるトピックに取り組んでいます。私はスライドが1つしかない限り、すべてがうまくいっていました。私は別のスライドを追加しようとしたときには、それがエラーを示しています。ここ

run time error 429 : Active x component cannot create an Object.

は私のコードです：

Dim pptSlide As Slide 
Dim pptLayout As CustomLayout 
'my code 
Set pptLayout = ActivePresentation.Slides(1).CustomLayout 'error at this line 
Set pptSlide = ActivePresentation.Slides.AddSlide(2, pptLayout) 

はそれと間違っているかわかりません。

Answer 1

デッキに1つのスライドがある場合、そのコードは正常に機能しますが、スライド1がそのカスタムレイアウトへの参照を取得しているため、デッキにスライドがないと失敗します。

Dim pptSlide As Slide 
Dim pptLayout As CustomLayout 
'my code 
With ActivePresentation 
    ' If the deck has some slides, get a freference to the first slide's custom layout 
    If .Slides.Count > 0 Then 
    Set pptLayout = .Slides(1).CustomLayout 'error at this line 
    Else 
    ' If no slides in the deck, use the second custom layout from the master 
    ' (usually the Title and Content layout 
    Set pptLayout = .SlideMaster.Design.SlideMaster.CustomLayouts(2) 
    End If 
    Set pptSlide = .Slides.AddSlide(.Slides.Count + 1, pptLayout) 
End With 

Answer 2

ヘイズ、 私は同じエラーがありました。 スライドを複製するとSlideRangeになります。

Dim spptRange As SlideRange 
    Dim sppt As PowerPoint.Slide 
    Set spptRange = PPApp.ActivePresentation.Slides(spptNr).Duplicate 
    Set sppt = spptRange.Item(1)