コレクションにスライドを追加する

Question

リスト（コレクション）に複数のスライドを追加したいです。 私のコードは、そのようなものです：

Set inhaltsverzeichnis_Slides = New Collection 
    Dim inhaltsverzeichnis_Slide As slide 
    intNrSlide = CInt(titels.Count/4) 
    slide = 1 
    For i = 1 To intNrSlide 
    slide = slide + 1 
    Set inhaltsverzeichnis_Slide = Application.ActivePresentation.Slides.Add(slide, ppLayoutText) 
    inhaltsverzeichnis_Slides.Add (inhaltsverzeichnis_Slide) 
    Next i 

が、私はコレクションにスライドを追加することはできませんなぜrunntimeError 438を取得します？ どうすればいいですか？ここで

Thxを

Answer 1

コレクションに現在のプレゼンテーションのすべてのスライドを追加する例です：

Dim tmpSlide as Slide 
Dim colSlides as New Collection 

For Each tmpSlide In Application.Presentations(1).Slides 

    colSlides.Add tmpSlide 
Next tmpSlide 

Answer 2

あなたは下記をコレクションにスライドオブジェクトを追加する行を変更する必要があります（括弧なし）：

inhaltsverzeichnis_Slides.Add inhaltsverzeichnis_Slide 

あなたは戻り値なしで括弧を使用することはできません - あなたが実際にいくつかの理由のためにそれらを使用したい場合、あなたは目を使用する必要がありますe Callステートメント：

Call inhaltsverzeichnis_Slides.Add(inhaltsverzeichnis_Slide)