vba删除指定幻灯片 | 您所在的位置:网站首页 › 怎么样批量删除幻灯片 › 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 |
今日新闻 |
推荐新闻 |
专题文章 |
CopyRight 2018-2019 实验室设备网 版权所有 |