|
|
代码功能：删除指定幻灯片
如果要删除某张幻灯片，使用Slides集合对象的Delete方法。
例如：ActivePresentation.Slides(9).Delete‘删除第9张幻灯片
代码功能：复制和粘贴幻灯片
ActiveWindow.View.Slide.Copy '复制被选中的幻灯片
ActivePresentation.Slides. Paste '将幻灯片粘贴到演示文稿的Slides集合中
ActiveWindow.View.Slide. Duplicate ‘创建Slide对象的副本，并添加到Slides集合中
代码功能：同时设置一堆幻灯片
使用Slides集合对象的Range方法可以返回一组指定的幻灯片的索引号，这样就可以通过索引号来指定幻灯片的编号，实现同时批量设置的目的。
下面代码的功能是：返回所有奇数索引幻灯片，然后改变它们的版式为“文字和对象”。
Dim i As Integer, slds As Slides, sIndex As Integer
Set slds = ActivePresentation.Slides
' 用于保存幻灯片索引的数组
Dim arrSlide()
For i = 1 To ActivePresentation.Slides.Count Step 2
sIndex = sIndex + 1
ReDim Preserve arrSlide(1 To sIndex)
arrSlide(sIndex) = i
Next
' 把这组幻灯片的版式更改为“文字和对象”，其常数值为13
slds.Range(arrSlide).Layout = ppLayoutObjectAndText
End Sub
|
|
