|
不久之前，陈老师曾给大家讲过PPT倒计时制作方法，不知道大家还记不记得……说不记得的，请自觉掌嘴30。 嗯，我们继续——倒计时效果在班会活动、企业年会、教学授课等多种场合都能够得到广泛的使用，可以说是深得人心。 推送发出之后，我公众号后台一大波的关键词回复啊，那是此起彼伏…… 今天，陈老师就再接再厉，继续给大家带来一则与倒计时同样具有广泛运用空间的技巧教程——PPT计分器的制作，相信在将来你一定用得上这个技巧！ 其实事情是这样的——昨天我在PowerPoint贴吧潜水，无意间看到了这么一个求助的贴： （可怜的娃，24号发的贴到我截图时都还是0回复） 虽然陈老师完全不知道该怎么做，但瞬间就觉得这是一个很不错，用途很广泛的点子——就像上次写《分享一个今天晚上花了1.5小时学会的小技巧》时一样，我决定再次现炒现卖，想办法先学会这个技巧，然后解救这些无知少年于水火之中——怎么说我现在也是版主了不是？哈哈哈哈…… 不要怀疑陈老师为何自己都不会就敢想拯救他人的事儿，互联网时代，一个计算机方面的技术你说你不会，最终往往都是因为你不会利用搜索引擎…… 于是，从昨天上午9点27开始，我从关键词“PowerPoint 控件 加减分”入手，开始了搜索…… ……期间根据搜索到的结果，数次更换调整关键词…… 9:45分，总算是让我找到了一个来自某Excel论坛的帖子（上图中最后一条记录）： 这个帖子中求助的效果，和贴吧中那位兄台求助的效果几乎一致。不过下载附件之后，发现这是一份Excel文档，虽然的确是可以实现我想要的效果，但如何把它挪到PPT里实现呢？ 看了一下这两个按钮的宏，加的那个按钮关联的是Macro1，减的那个关联的是Macro2： 进入编辑界面，我惊讶的发现这个宏居然如此的简单，就只有一行：Range()=Range()+1 赶紧查了一下Range命令的意思，发现仅仅是一个赋值的命令而已，Macro1这个宏的意思就是将D5单元格值赋值为当前D5单元格的值+1，Macro2则是在当前值基础上-1。 这个宏在PPT里能不能用呢？即便能用，PPT里没有单元格啊，括号里我又应该填啥呢？我想了半天也没搞懂，因为有课，就没再研究，但心里却一直挂着这岔子事儿——真的，这个Excel文档我都一直没关掉。 时隔一天，今天下午我又开始琢磨，换着各种方儿想要解决这个问题—— 我甚至尝试在PPT页面插入Excel表格……没想到奇迹出现了： | | | | | | | | ↓ 奶奶个腿儿！看来此路不通！最终我还是回到了使用文本框控件这条路上来（如果你的PPT里没有下面这个菜单，请到“自定义功能区”设置中勾选“开发工具”）： PPT里面，只有文本框控件和单元格最像了，都是一个格子嘛，那会不会也有类似的宏命令呢？文本框又是否支持运算呢？ 想到这里我又下意识以“VBA 运算”为关键词谷歌了一下，没想到就搜到了下面这一个2008年的老网页： 果不其然，文本框控件是可以运算的，直接把名字拿来做运算就好了！于是，我立马按照Excel那个例子中VBA的写法，依葫芦画瓢…… 看好，下面教程来啦！ 1、插入一个文本框控件： 2、右键单击控件框体，进入属性表，更改一些显示上的设置：字体、字号、对齐方式等（注意，控件的字体字号等不能在开始选项卡更改，只能在这个属性表中改）： 3、在开发工具选项卡点击“宏”，命名并创建宏：
进入VBA编写窗口，写好两个宏：“文本框=文本框+1”和“文本框=文本框-1”（当然，需要把文本框几个字变为PowerPoint中文本框控件的源生英文称呼TextBox1）：
4、回到页面上绘制两个按钮，选择“插入-动作”，点击运行宏，分别选择写好的两个宏，上箭头关联加分宏Slide1.jia，下箭头关联减分宏Slide1.jian：
搞定！F5运行，看看效果吧：
如果用到比赛中，想要每点一次加减10分的话怎么办呢？只需要在刚才的VBA窗口把TextBox1 = TextBox1 + 1 改为TextBox1 = TextBox1 + 10 就好啦！
当然，我们也可以美化一下页面啦：
|
|
|
