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

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

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

PowerPoint 模板是另存为 .potx格式的一张幻灯片或一组幻灯片的图案或蓝图。模板可以包含版式、主题颜色、主题字体、主题效果和背景样式,甚至还可以包含内容。

Presentation对象的ApplayTemplate方法把指定的模板应用于整个演示文稿,以使其有一个统一的外观,例如:

ActivePresentation.ApplyTemplate"c:\sample.potx"

è实例演练:转换成图片式演示文稿

编程思路:

把指定演示文稿中的所有幻灯片转换成图片式幻灯片,然后保存。

'转换成全图式演示文稿

Sub ConvertoPicturePresenation(ByVal sPresFile As String, ByVal tPresFile As String)

    Dim openPres As Presentation

Dim savePres As Presentation

    Dim myTemp As String

myTemp = VBA.Environ$("temp")

myTemp = myTemp & "\myslidetemp"

    VBA.MkDir myTemp

    ' 打开要转换的演示文稿

Set openPres = Presentations.Open2007(sPresFile, False, True, False)

' 用png格式导出所有幻灯片到指定目录中

openPres.Export myTemp, "png"

    ' 增加一个演示文稿

    Set savePres = Presentations.Add(False)

    With savePres

        .SlideHeight = openPres.PageSetup.SlideHeight

        .SlideWidth = openPres.PageSetup.SlideWidth

        .SlideOrientation = openPres.PageSetup.SlideOrientation

    End With

    ' 关闭

    openPres.Close

    Dim myPic As String

    ' 检索刚才导出的图片

myPic = Dir(myTemp & "\*.png")

    Dim i As Integer

    Do While myPic <> ""

myPic = myTemp & "\" & myPic

        i = i + 1

        ' 增加幻灯并插入图片

        With savePres.Slides.AddSlide(i, savePres.SlideMaster.CustomLayouts(7))

            .Shapes.AddPicture myPic, False, True, 0, 0

        End With

        Kill myPic    ' 删除已插入了图片,避免留下垃圾

        ' 下一个图片

myPic = Dir

Loop

    VBA.RmDir myTemp

savePres.SaveAs tPresFile

    savePres.Close

End Sub

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

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