|
|
一、Presentations 集合对象
PowerPoint 中所有 Presentation 对象的集合。每个 Presentation 对象代表 PowerPoint 中当前打开的一个演示文稿。
使用 Presentations 集合
使用 Presentations 属性返回 Presentations 集合。使用 Add 方法创建一个新演示文稿并添加到集合中。以下示例创建一个新演示文稿，在其中添加一张幻灯片，然后保存该演示文稿。
Set newPres = Presentations.Add(True)
newPres.Slides.Add 1, 1
newPres.SaveAs "Sample"
使用 Presentations(index) 返回单个 Presentation 对象，其中 index 是幻灯片名称或索引号。以下示例打印第一个演示文稿。
Presentations(1).PrintOut
使用 Open 打开演示文稿并添加到 Presentations 集合中。以下示例以只读方式打开文件“Sales.ppt”。
Presentations.Open FileName:="sales.ppt", ReadOnly:=True
说明
Presentations 集合不包含开放式加载宏，它是一种特殊类型的隐藏演示文稿。但是如果知道某单个开放式加载宏的文件名，就可以返回它。例如，Presentations(“oscar.ppa”) 将作为 Presentation 对象返回名为“Oscar.ppa”的开放式加载宏。但是，建议使用 AddIns 集合返回开放式加载宏。
二、PrintOptions 对象
包含演示文稿的打印选项。
注意 指定 PrintOut 方法的可选参数 From、To、Copies 和 Collate 将设置 PrintOptions 对象的相应属性。
使用 PrintOptions 对象
使用 PrintOptions 属性返回 PrintOptions 对象。以下示例以非逐份方式打印当前演示文稿所有幻灯片（无论可见或隐藏）的两个彩色副本。该示例还调整每个幻灯片的大小以适应打印页，并给每个幻灯片加细边框。
With ActivePresentation
With .PrintOptions
.NumberOfCopies = 2
.Collate = False
.PrintColorType = ppPrintColor
.PrintHiddenSlides = True
.FitToPage = True
.FrameSlides = True
.OutputType = ppPrintOutputSlides
End With
.PrintOut
End With
使用 RangeType 属性指定打印整个演示文稿或指定部分。如果只想打印特定幻灯片，请将 RangeType 属性设为 ppPrintSlideRange，并使用 Ranges 属性指定要打印的页。以下示例打印当前演示文稿中第一、四、五、六张幻灯片。
With ActivePresentation
With .PrintOptions
.RangeType = ppPrintSlideRange
With .Ranges
.Add 1, 1
.Add 4, 6
End With
End With
.PrintOut
End With
|
|
