将幻灯片添加到收藏夹答案

【问题标题】：Add slides to collection将幻灯片添加到收藏夹
【发布时间】：2016-05-30 20:00:31
【问题描述】：

我想将几张幻灯片添加到列表（集合）中。我的代码是这样的：

   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。为什么我不能将幻灯片添加到集合中？我该怎么做？

谢谢

【问题讨论】：

标签： vba powerpoint

【解决方案1】：

这是一个将当前演示文稿的所有幻灯片添加到集合中的示例：

Dim tmpSlide as Slide
Dim colSlides as New Collection

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

    colSlides.Add tmpSlide
Next tmpSlide

【讨论】：

【解决方案2】：

您需要将向集合中添加幻灯片对象的行更改为以下内容（不带括号）：

inhaltsverzeichnis_Slides.Add inhaltsverzeichnis_Slide

你不能使用没有返回值的括号——如果你出于某种原因真的想使用它们，你需要使用Call语句：

Call inhaltsverzeichnis_Slides.Add(inhaltsverzeichnis_Slide)

【讨论】：