【摘要】 原文自:http://www.newsmth.net/bbscon.php?bid=612&id=93742 及:http://oicu.cc.blog.163.com/blog/static/1230394712010611039349/ 作者:dukenuke 用VBA 实现在 PPT 最下边加个进度条,方便查看进行到总长度的...
原文自:http://www.newsmth.net/bbscon.php?bid=612&id=93742
及:http://oicu.cc.blog.163.com/blog/static/1230394712010611039349/
作者:dukenuke
用VBA 实现在 PPT 最下边加个进度条,方便查看进行到总长度的多少,
抓住了听讲人的心理:“啥时候才能讲完啊?”
打开 PPT,按Alt+F8 新建个宏,随便取个宏名,不用改宏作用区域,
点“创建”,删除模块里的内容,把代码复制过去。
(按Alt+F11 之后插入模块也可以)
进度条宏的作者是水木社区的dukenuke 。
Sub ProgressBar()
' by dukenuke@newsmth.net
Dim mySlides As Slides
Dim pageBar As ShapeRange
Dim pageSHower As Shape
Dim pageWidth, pageHeight, pageStep
Set mySlides = Application.ActivePresentation.Slides
pageWidth = Application.ActivePresentation.SlideMaster.Width
pageHeight = Application.ActivePresentation.SlideMaster.Height
pageStep = pageWidth / mySlides.Count
On Error Resume Next
For i = 2 To mySlides.Count
Set pageBar = mySlides.Item(i).Shapes.Range(