读书频道 > 网站 > 网页设计 > PPT新视角——VBA应用技术
幻灯片操作
13-05-24    奋斗的小年轻
收藏    我要投稿   

本文所属图书 > PPT新视角——VBA应用技术

本书内容由浅入深,难易结合,理论与实例交替,规范与突破并存,一步步引导读者入门、提高、直至专业。全书共分为4部分:第1部分引导读者入门,熟悉VBA开发环境,掌握VBA编程元素和基本概念以及代码的调试等。第...立即去当当网订购

①删除指定幻灯片

如果要删除某张幻灯片,使用Slides集合对象的Delete方法,例如:

ActivePresentation.Slides(1).Delete‘删除幻灯片1

②复制和粘贴幻灯片

在幻灯片编程任务中,有时需要不停地复制和粘贴幻灯片,以满足某些编程目的,如把当前某张幻灯片存储为另一个演示文稿,再将其用openxml的方式打开,修改其中某些在编辑状态下无法实现的东西,再用open2007打开,把修改后的幻灯片收回当前演示文稿中,删除原来幻灯片。虽然有点复杂,但这是目前VBA中突破PowerPoint限制最有效的方法。

ActiveWindow.View.Slide.Copy '复制当前幻灯片

ActivePresentation.Slides. Paste '将幻灯片粘贴到演示文稿的 Slides 集合中

ActiveWindow.View.Slide. Duplicate  ‘创建Slide对象的副本,并添加到 Slides 集合中

③同时操作一组幻灯片

一张张操作幻灯片太麻烦了,如何同时操作一批幻灯片呢?使用Slides集合对象的Range方法可以返回一组指定的幻灯片。

如下面的代码所示返回所有奇数索引幻灯片,然后改变它们的版式为“文字和对象”。

Sub ProcessSlideRange()

    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

点击复制链接 与好友分享!回本站首页
分享到: 更多
您对本文章有什么意见或着疑问吗?请到论坛讨论您的关注和建议是我们前行的参考和动力  
上一篇:1.3 功能
下一篇:1.5 小结
相关文章
图文推荐
JavaScript网页动画设
1.9 响应式
1.8 登陆页式
1.7 主题式
排行
热门
文章
下载
读书

关于我们 | 联系我们 | 广告服务 | 投资合作 | 版权申明 | 在线帮助 | 网站地图 | 作品发布 | Vip技术培训
版权所有: 红黑联盟--致力于做最好的IT技术学习网站