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: 脉管瘤患者不会吃辛辣或有刺激性的食物,这是因为这些辛辣的食物会刺激肠胃,也会引起血管出血。事实上,血管瘤这种疾病可以发生在任何身体之上,但需要我们了解的是血管瘤这一疾病在发病期间,患者需要注意的饮食知识有哪些,血管瘤患者首先要保持健康的生活方式,不喝酒不抽烟,这样才能促进疾病的恢复。1.脉管瘤患者不会吃辛辣或有刺激性的食物,这是因为这些辛辣的食物会刺激肠胃,也会引起血管出血。2每一种口味都有其内在的作用,对于酸味可以收敛,对于辣的食物可以开胃,当然对于血管瘤患者来说要注意合理的饮食,这样才不会因为饮食不当而导致身体失衡。3.要多吃一些富含维他命和营养丰富的食物,比如五谷杂粮。但有些肉制品也是要吃的,如羊肉,鸡肉等。对身体虚的病人,可以吃这些食物。不过也可以吃一些大补的食物,比如鸭肉、鲫鱼、海参等。具有良好的抗癌效果,比如木耳蘑菇等食物也能起到软坚散结的作用。特别是蘑菇灯食品中含有人体所需的维他命和氨基酸,能增强人体的免疫力。4.要多吃蔬菜和水果,这些食物含有丰富的维他命和微量元素,有许多作用,比如富含维生素A的食物胡萝卜、空心菜、大枣等,还有许多食物不仅富含维生素,而且还有其他作用,需要我们去了解,但对于青光眼的饮食,要戒除烟酒,这样才会达到效果。