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

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

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

一个演示文稿总是由许多的幻灯片组成的,如图10-10所示。

如何快速获取演示文稿中的幻灯片对象呢?图10-11展示了几种途径。

增加幻灯片

Slides对象的AddSlide方法指定向演示文稿中增加的索引和版式并返回新的幻灯片。

幻灯片所用的版式由幻灯片母版中的CustomLayouts集合对象控制,如何知道要使用哪个版式呢?下面的代码列举出了所有当前可用的版式索引和名称。

Sub ListCustomLayouts()

Dim cusLayout As CustomLayout  '定义一个版式对象

dim cusLayouts As CustomLayouts

Set cusLayouts=ActivePresentation.SlideMaster.CustomLayouts

  For Each cusLayout IncusLayouts

      Debug.Print cusLayout.Index & "-"; cusLayout.Name

  Next

End Sub

有了上面版式,就可以向演示文稿中增加某种版式的幻灯片了。

①增加新幻灯片

下面的代码增加了3张空白版式的幻灯片。

Sub AddSlide()

    Dim cusLayout As CustomLayout

    ' 获取空白版式

    Set cusLayout = ActivePresentation.SlideMaster.CustomLayouts(7)

    Dim i As Integer

    '增加3个幻灯片

    For i = 1 To 3

        With ActivePresentation.Slides.AddSlide(i, cusLayout)

            .Name = "新增" & i

        End With

    Next

End Sub

② 从文件中插入幻灯片

从文件中插入幻灯片,可以合并多个演示文稿,达到幻灯片重用的目标。这在平常的工作中十分有效。

' sfile:从这个文件获取幻灯片

' indexpos:插在当前演示文稿中幻灯片列表的位置

' frominde:从文件的哪个幻灯片开始选取幻灯片,-1表示第一个

' endinde:选到哪里结束,-1表示最后一个

Sub AddSlideFromFile(sfile, indexpos, Optional fromindex = -1, Optional endindex = -1)

    Dim slds As Slides

    Set slds = ActivePresentation.Slides

slds.InsertFromFile sfile, Index, frominndex, endindex

End Sub

例如:

AddSlideFromFile  "c:\ppt\sales.ppt", 2, 3, 6

在活动演示文稿的第二张灯片后插入文件 C:\Ppt\Sales.ppt 的第3张到第6张幻灯片。

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

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