positive: 【摘要】 原文自:http://www.newsmth.net/bbscon.php?bid=612&id=93742 及:http://oicu.cc.blog.163.com/blog/static/1230394712010611039349/ 作者:dukenuke 用VBA 实现在 PPT 最下边加个进度条,方便查看进行到总长度的...<br>原文自:http://www.newsmth.net/bbscon.php?bid=612&id=93742<br>及:http://oicu.cc.blog.163.com/blog/static/1230394712010611039349/<br>作者:dukenuke<br>用VBA 实现在 PPT 最下边加个进度条,方便查看进行到总长度的多少,<br>抓住了听讲人的心理:“啥时候才能讲完啊?”<br>打开 PPT,按Alt+F8 新建个宏,随便取个宏名,不用改宏作用区域,<br>点“创建”,删除模块里的内容,把代码复制过去。<br>(按Alt+F11 之后插入模块也可以)<br>进度条宏的作者是水木社区的dukenuke 。<br>Sub ProgressBar()<br>' by dukenuke@newsmth.net<br>Dim mySlides As Slides<br>Dim pageBar As ShapeRange<br>Dim pageSHower As Shape<br>Dim pageWidth, pageHeight, pageStep<br>Set mySlides = Application.ActivePresentation.Slides<br>pageWidth = Application.ActivePresentation.SlideMaster.Width<br>pageHeight = Application.ActivePresentation.SlideMaster.Height<br>pageStep = pageWidth / mySlides.Count<br>On Error Resume Next<br>For i = 2 To mySlides.Count<br>Set pageBar = mySlides.Item(i).Shapes.Range(
negative: <br>首先打开电脑上安装好的流程图制作软件。<br>接着将下载在电脑上的软件打开,打开之后就可以点击界面上的“创建新图表”按钮了。<br>然后就可以点击界面左侧的“流程图”按钮了,这样就可以在右侧出现的流程图样式中选择一个自己需要的流程图,选择好后点击“创建”按钮即可。<br>接下来就可以进入操作界面了,在这个界面的左侧点击“流程图”选项,在下面出现的一系列图形,根据自己的需要将图形挪到操作界面进行添加即可。<br>图形添加完成后就可以在图形上进行文字的添加了,只要点击流程图图形就可以在图形中输入文字了。<br>文字输入完毕之后就可以将绘制好的程序流程图进行保存了,直接点击界面上的“文件”—“保存”按钮,就可以将文件进行保存了。<br>