全部显示

返回集合中的对象

Item 方法返回集合中的单个对象。以下示例将 firstPres 变量设为代表第一个演示文稿的 Presentation 对象。

Set firstPres = Presentations.Item(1)

Item 方法是大部分集合的默认方法，因此可以省略 Item 关键字，这样可使同样的语句更简明。

Set firstPres = Presentations(1)

有关指定集合的详细信息，请参阅该集合或其 Item 方法的帮助主题。

命名对象

尽管通常可以用 Item 方法指定一个整数值，但以名称返回一个对象可能更方便。许多对象在创建时自动被赋予一个名称。例如，创建的第一张幻灯片将被自动命名为“Slide1”。如果创建的前两个形状为矩形和椭圆，它们的默认名称为“Rectangle 1”和“Oval 2”。如果要给对象赋予更有意义的名称便于以后引用，可以设置对象的 Name 属性。以下示例在添加一张幻灯片时为其设置一个有意义的名称。这样，就可使用该名称代替索引号以引用该幻灯片。

ActivePresentation.Slides.Add(1, 1).Name = "Home Page Slide"
With ActivePresentation.Slides("Home Page Slide")
    .FollowMasterBackground = False
    .Background.Fill.PresetGradient _
        msoGradientDiagonalDown, 1, msoGradientBrass
End With

预定义索引值

某些集合有预定义索引值，可以使用这些值返回单个对象。每个预定义索引值由一个常数表示。例如，使用 TextStyles 集合的 Item 方法指定一个 PpTextStyleType 常数可返回一个文本样式。

以下示例设置当前演示文稿中幻灯片的正文区域的边距。

With ActivePresentation.SlideMaster _
        .TextStyles(ppBodyStyle).TextFrame
    .MarginBottom = 50
    .MarginLeft = 50
    .MarginRight = 50
    .MarginTop = 50
End With