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: 经常使用Excel制作各种报表,有时为了美观或便于直观了解数据,常常会用到各种图表。在单元格内,以进度条(数据条)方式显示百分比图(非插入图标式)。此方式方便快捷,便于排版。<br>　　　工具/原料<br>　　Microsoft Office Excel 2013 (不低于2007版本)<br>　　方法/步骤<br>　　(数据建立略)先计算出百分比,这里是比较2013年各项财务指标比2012年增长(减少)的比例。在D2-D21显示。如图:<br>　　选中需要生成数据条的单元格。这里是D2至D21,然后再“开始”工具栏下找到“条件格式”-“数据条”-“其他规则”。如图:<br>　　勾选“仅显示数据条”(单元格内没有百分比数字),因为我们的数据有负值。所以最小值-数字,输入-1,最大值-数字,输入1,(这里是一个范围,从-100%至+100%。当然也可以是其他数字,正负3.4.5.6……都可以,更具你的数据范围调整,这里本应该是-1至3。),颜色、边框这些可以按需调整,同时调“整负值和坐标轴”。<br>　　一样,颜色自选。“坐标轴设置”第一个会根据内容自动调整,第二个就是中点值0,在单元格中心。<br>　　最后是完成的效果,在后面一列单元格添加一个百分比显示。直观显示。最后效果图,修改了比例为-1至3.<br>　　最后,在来一个没有负值的。比如说某项目完成比例情况,<br>　　因为最大值是318.40%,所以范围我选择0至3。没有负值,则不设置“负值和坐标轴”。