l_lj888 发表于 2017-10-9 18:03:40

vba删除指定幻灯片

　　 　　 　　代码功能：删除指定幻灯片
　　如果要删除某张幻灯片，使用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

lqohlm 发表于 2017-10-11 02:59:16

我来了~~~~~~~~~ 闪人~~~~~~~~~~~~~~~~

glkkgf43 发表于 2017-10-15 04:57:28

很不错啊
页: [1]
查看完整版本: vba删除指定幻灯片