PowerPoint VBA教程:Slides集合对象

Presentation
Slides (Slide)
Multiple objects

在指定演示文稿中所有Slide对象的集合。

使用 Slides集合

本节叙述如何:

创建一个幻灯片并添加到集合

使用Slides属性返回 Slides集合。使用Add方法创建新幻灯片并添加到集合。以下示例将新幻灯片添加到当前演示文稿中。


ActivePresentation.Slides.Add 2, ppLayoutBlank

返回指定名称、幻灯片索引号或幻灯片 ID 号的幻灯片

使用 Slides(index)(其中 index 为幻灯片名称或索引号)或 Slides.FindBySlideID(index)(其中 index 为幻灯片 ID 号)返回一个 Slide对象。以下示例设置当前演示文稿第一张幻灯片的版式。


ActivePresentation.Slides(1).Layout = ppLayoutTitle

以下示例设置当前演示文稿中名为“Big Chart”的幻灯片的版式。请注意,幻灯片创建时被自动赋予一个形如 Sliden(其中 n 为一整数)的名称。若要给幻灯片赋予一个更有意义的名称,请使用Name属性。


ActivePresentation.Slides("Big Chart").Layout = ppLayoutTitle

返回演示文稿中幻灯片的子集

使用 Slides.Range(index)返回代表 Slides集合的一个子集的SlideRange对象,其中 index 为幻灯片索引号或名称,或者幻灯片索引号或名称的数组。以下示例设置当前演示文稿第一张和第三张幻灯片的背景填充。


With ActivePresentation.Slides.Range(Array(1, 3))
    .FollowMasterBackground = False
    .Background.Fill.PresetGradient msoGradientHorizontal, _
        1, msoGradientLateSunset
End With

同时将一种属性或方法应用于演示文稿

如果要同时对演示文稿中所有幻灯片进行某种操作(例如全部删除或设置它们的某些属性),可不带参数使用 Slides.Range 创建一个包含 Slides集合中所有幻灯片的 SlideRange集合,然后将适当的属性或方法应用于 SlideRange集合。本示例设置当前演示文稿所有幻灯片的背景填充。


With ActivePresentation.Slides.Range
    .FollowMasterBackground = False
    .Background.Fill.PresetGradient msoGradientHorizontal, _
        1, msoGradientLateSunset
End With

上页:PowerPoint VBA教程:SlideRange集合对象 下页:PowerPoint VBA教程:SlideShowSettings对象

PowerPoint VBA教程:Slides集合对象

PowerPoint VBA教程:SlideShowSettings对象 PowerPoint VBA教程:SlideShowTransition对象
PowerPoint VBA教程:SlideShowView对象 PowerPoint VBA教程:SlideShowWindow对象
PowerPoint VBA教程:SlideShowWindows集合对象 PowerPoint VBA教程:SoundEffect对象
PowerPoint VBA教程:Table对象 PowerPoint VBA教程:TabStop对象
PowerPoint VBA教程:TabStops集合对象 PowerPoint VBA教程:Tags对象
PowerPoint VBA教程:TextEffectFormat对象 PowerPoint VBA教程:TextFrame对象
PowerPoint VBA教程:TextRange对象 PowerPoint VBA教程:TextStyle对象
PowerPoint VBA教程:TextStyleLevel对象 PowerPoint VBA教程:TextStyleLevels集合对象
PowerPoint VBA教程:TextStyles集合对象 PowerPoint VBA教程:ThreeDFormat对象
PowerPoint VBA教程:TimeLine对象 PowerPoint VBA教程:Timing对象
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号