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: 紫叶李中带有丰富多彩的糖份、少量蛋白、胡罗卜素、维生素b3、钙、铁、磷、天门冬素、谷氟苯、苏氨酸、丙氨酸、脯氨酸、甘氨酸、丝氨酸、维C、维他命b1、维他命b2、人体脂肪、这些物质在里面。它具备益气、促进消化、解渴、养阴生津这些作用。非常是对于于气短乏力、闭经、便秘、淤血肿疼、面色暗黄这些病症的病人是合适服用的。<br>三、品种介绍<br>1、红叶李<br>叶卵圆形或长圆环状披针形,树根紫灰色,白色的花,整棵主杆光洁没毛。<br>2、紫叶李<br>叶型较宽敞,双面紫红色,花淡淡粉色,果鲜红色。<br>3、黑叶李<br>茶叶的颜色偏暗,黑紫色,花淡粉色,果暗红色。