Question

我想添加一个List（Collection）几张幻灯片。我的代码是这样的：

   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

如果没有返回值，则不能使用括号 - 如果您出于某种原因确实想要使用它们，则需要使用Call语句：

Call inhaltsverzeichnis_Slides.Add(inhaltsverzeichnis_Slide)

添加幻灯片到集合

2 个答案: