《用PowerPoint中的VBA实现课件中的智能交互.doc》由会员分享，可在线阅读，更多相关《用PowerPoint中的VBA实现课件中的智能交互.doc（14页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、用PowerPoint中的VBA实现课件中的智能交互作者：张宝红来源：中国电脑教育报加入时间：2003-8-25黄金软件网PowerPoint中的VBA可以实现很多复杂的交互，但很多老师面对VBA编程，都会觉得无从下手。所以本期我们为大家安排了一个关于PowerPoint中VBA的小专题，以后在课件中实现交互就不会那么费劲了。VBA基础说到VBA编程，就不得不提到控件工具箱，我们需要利用其中的控件搭建需要的环境。1 显示控件工具箱在PowerPoint中选择菜单“视图/工具栏/控件工具箱”。2 控件工具箱（如图1）中常用按钮的介绍（1）复选框（CheckBox）：可以选择多个选项，常用来设计多
2、选题；（2）文本框（TextBox）：可以输入文本，常用来设计填空题；（3）命令按钮（CommandButton）：用来确定选择或输入，也可设计超级链接；（4）单选框（OptionButton）：只能选中一个选项，常用来设计单选题或判断题；（5）标签（Label）：用来显示文字信息。3 插入控件的方法单击控件工具箱上的工具按钮，然后在幻灯片中拖动到适当大小即可。4 进入VBA的方法双击幻灯片中的控件或用菜单命令“工具/宏/Visual basic编辑器”即可进入VBA编程状态。5 控件的主要属性及设置方法进入VBA后，需要在“属性”窗口中对控件的属性进行设置。如果没有出现“属性”窗口，按F4键
3、即可调出该窗口。下面我们就不同的控件，来说明常用属性的设置方法。（1）复选框AutoSize：有两个值，True表示根据字的多少调整复选框的大小，False表示复选框为固定大小；BackColor：设置复选框的背景颜色，单击该属性框出现下拉按钮，选择“调色板”选项卡后选择颜色；Caption：控件的名称，把默认值删除再重新输入新名称；Font：设置字体、字号及字形，单击该属性框出现按钮，单击该按钮出现字体对话框，再在对话框中设置；Forecolor：设置字的颜色，设置方法同BackColor；Height：复选框的高度，直接输入数字即可；Width：复选框的宽度，直接输入数字即可；Value：
4、复选框的值，True为选中，False则相反。（2）文本框AutoSize、BackColor、Font、ForeColor、Height、Width等属性的设置方法同复选框；Value：文本框的值，用来保存输入的文本；TextAlign：设置文本对齐方式。（3）单选框属性设置同复选框。（4）标签除Value外，其他同复选框。（5）命令按钮同标签。6 消息框MsgBox的功能我们常用消息框显示一些交互的信息，如图2所示的消息框用下面的语句可实现：Msgbox(这是一个例题,VbYesNo,示例)多选题的制作1. 题目的设计同单选题2. 选项：用复选框（CheckBox)，其他设置同单选题。3.
5、 查看答案命令按钮：因为是多选题，答案有多个，所以要书写多个条件，条件之间用and连接，表示同时满足这几个条件，例如第一、三、五的选项是正确的，则需要输入如下语句：If CheckBox1.Value=True And CheckBox3.Value=True And CheckBox5.Value=True Then给出正确的提示信息同单选题else给出错误的提示信息同单选题end if 填空题的制作1. 题目的设置同单选题，填空的地方用文本框。2. 判断正误：因为是填空题，所填答案是文本，所以条件书写为：if TextBox1.value=正确的文本 then 给出正确的提示信息同单选题e
6、lse给出错误的提示信息同单选题end if 注意：正确的文本一定要用半角双引号括起来，如几个空一起判断，方法同多选题。3. 重新填空命令按钮：需要完成如下语句的设置：Private Sub CommandButton2_Click()TextBox1.Value = 请双击后填入你的答案！End SubPrivate Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)TextBox1.Value = End Sub单选题的制作例如我们要设计如图1所示的选择题。1 题目可用文本框，也可用标签。如果用文本框，直接输入文本即可。
7、如果用标签，插入后双击该标签启动VBA，修改Caption属性为“5X-15=0的解是：”，再根据需要修改其他属性（如颜色等）。2 选项插入一单选框，修改其Caption属性为“0”，其他属性可自行修改。其他的单选项可复制制作好的单选框，然后再修改它们的Caption属性。3 查看答案命令按钮在此使用命令按钮，我们可根据单选框的Value属性的值来判断答案，如正确选项（单选框）的Value的值为True，则为该题选择正确，否则为选择错误，我们还可根据选择正误来给出信息，有两种方法。（1）方法一用MsgBox（），如果选择正确，显示信息“Very Good!请继续！”，错误则显示“Sorry,你
8、选错了！正确答案是3，请继续努力。”操作步骤：双击单选框进入VBA，在编辑窗口中完成以下操作。A. 在编辑窗口中找到如下两条语句：Private Sub OptionButton3_Click()End Sub然后在上面这两条语句中间插入以下语句：If OptionButton3.Value=True Then ex=MsgBox(Very Good!请继续努力。,Vbokonly)B. 同理，找到如下两条语句：Private Sub OptionButton1_Click()End Sub在这两条语句中间插入语句：If OptionButton1.Value=True Then ex=Msg
9、Box（正确答案是3 ，请继续努力。,Vbokonly）C. 找到如下两条语句Private Sub OptionButton2_Click()End Sub在这两条语句中间插入语句If OptionButton2.Value=True Then ex=MsgBox（正确答案是 3，请继续努力。,Vbokonly）说明：ex为自定义变量（2）方法二在幻灯片合适的地方插入一标签，修改其Caption属性为空，其他设置同方法一，只要把正确选项中的“then”后的语名改为“label2.caption=Very Good!请继续！”，错误选项的改为“label2.caption=正确答案是3 ，请继
10、续努力。”即可。4 重新选择命令按钮在幻灯片适当的地方插入一命令按钮，修改其Caption属性为“重新选择”，在编辑窗口中的Private Sub CommandButton1_Click()和End Sub语句间插入：OptionButton1.Value = FalseOptionButton2.Value = FalseOptionButton3.Value = FalseLabel2.Caption =如判断正误用的是方法一，此语句不要）5 下一题命令按钮在幻灯片适当地方插入一命令按钮，修改其Caption属性为“下一题”，在编辑窗口中的Private Sub CommandButto
11、n1_Click()和End Sub语句间插入If MsgBox(是否继续, vbYesNo + vbQuestion, “下一题”)=vbYes Then With SlideShowWindows(1).View.GotoSlide 2End With（2为第2张幻灯片，此语句表示转到第2张幻灯片）End if 如果要根据条件的不同转到不同的幻灯片，可用下面语句：if 条件then With SlideShowWindows(1).View.GotoSlide 2End WithEnd if 说明：条件可以是Caption属性或value属性，书写方法为：控件名称（在VBA中的名称）.属性
12、=（value属性为True或False，Caption属性为具体文本，注意文本要加双引号），例如下面的语句：if optionbutton1.value=true then 表示如果单选框1的value值为True，那么运行then后的语句，一直到end if。判断题的制作所有的设置与单选题类似，只不过是设计两个选项“”和“”，这两个符号可先在Word中插入，然后再复制过来。用PowerPoint制作比赛评分系统作者：张增琦来源：中国电脑教育报加入时间：2003-8-22黄金软件网最近单位组织了一次英语会话比赛，笔者用PowerPoint内嵌的VBA功能制作了一个即时评分系统，受到老师和同学
13、们的一致好评，现将制作过程与大家分享。准备工作：在桌面新建一个名为“评分系统”的文件夹，用于存放参赛队的相关信息，其中Name.txt中保存了各参赛队名称（需事先准备，每个队名占一行）。启动工作：新建一张空白幻灯片，在“视图”菜单下找到“工具栏”子菜单，选择其中的“控件工具箱”（大家也可根据实际需要改变主界面风格）。调整相应控件位置，评委照片用的是“图像控件”，下面的分数用的是“文本框”，两个按钮用的是“命令按钮”，放置好控件之后再调整各控件的属性来美化界面，也可根据实际需要插入图片进行修饰。评分系统主界面中包括8个评委的照片和每个评委给出的分数（如图），功能按钮包括“清空”、“最后得分”。各
14、评分得分的文本框的名称为TxtS1，TxtS2TxtS8，“最后得分”按钮的名称为CommandTotal，第二张幻灯片用来显示最后得分的标签名称为LblTotal。设计工作：打开VBA编辑器编写代码：指定文件夹用于存放每组得分的统计文件Const Path$ = C:windowsdesktop评分系统全局变量，最后总分Dim sum As Single全局变量，最后平均得分Dim AverageScore As Single全局变量，记录组次，保存后自动加1Dim GroupNum As Integer清空“评委得分”，清空“最后得分”Private Sub CommandButton1_
15、Click()TxtS1.Text = TxtS2.Text = TxtS3.Text = TxtS4.Text = TxtS5.Text = TxtS6.Text = TxtS7.Text = TxtS8.Text = 清空下一张幻灯片的最后总分Slide2.LblTotal.Caption = End Sub“最后得分”按钮Private Sub CommandTotal_Click()On Error GoTo erDim sum As Single将8个评委的分数相加得出总分sumsum = sum + CSng(TxtS1.Text)sum = sum + CSng(TxtS2.Te
16、xt)sum = sum + CSng(TxtS3.Text)sum = sum + CSng(TxtS4.Text)sum = sum + CSng(TxtS5.Text)sum = sum + CSng(TxtS6.Text)sum = sum + CSng(TxtS7.Text)sum = sum + CSng(TxtS8.Text)计算出最后得分（平均分），精确到小数点后3位AverageScore = Format(sum / 8, #.#)第二张幻灯片显示最后得分Slide2.LblTotal.Caption = AverageScore写入最后得分If GroupNum=1 AN
17、D GroupNum SngScore(j) Thena = SngScore(i): SngScore(i) = SngScore(j): SngScore(j) = ab = StrName(i): StrName(i) = StrName(j): StrName(j) = bEnd IfNextNexter:End Sub新建一张幻灯片，用于显示三等奖获奖名单，按钮名称为CmdDisply，6个文本框的名称为TxtThirdPrize1TxtThirdPrize6。代码如下：Private Sub CmdDisply_Click()ReadDataInp因为分数从高到低排序，因此先输出最
18、后三组TxtThirdPrize1.Text = StrName(4)TxtThirdPrize2.Text = StrName(5)TxtThirdPrize3.Text = StrName(6)制作时你也可以加入其他的幻灯片用做修饰，比如制作一个带动态效果的开始画面以及结束语等等，然后在比赛时用投影机作为输出，一定会起到烘托赛场气氛的作用。用PowerPoint XP制作交互式选择题Authorware作为时下流行的多媒体制作软件，广泛应用于多媒体教学和商业领域，但是它抽象的制作方式加上深奥的编程，使大多数初学者望而却步。而Powerpoint XP则秉承了Office一贯以来的熟悉界面和
19、所见即所得的制作效果，加上傻瓜式的操作方式，即便是刚刚接触它的人也很容易上手。下面我们就以制作一道交互式选择题为例，来体验一下Powerpoint XP的魅力吧！我们要实现的效果是：当单击铵钮B、C、D时，会弹出一个动画效果的标注，并发生一声爆炸声，随后标注隐藏。当击按钮A时，则弹出“答对了，中国”的文本标注，同时发生鼓掌声，且标注信息不隐藏。1、运行PowerpointXP，单击菜单“文件”|“新建”，在右侧的任务窗格中选择新建一个空白文档。2、使用绘图工具栏里的“文本框”、“标注”以及“动作按钮（自定义）”工具，制作出如图一所示的题目及答案，并调整它们的位置、字体颜色及填充色。2、在添加动
20、作按钮时，会弹出一个“动作设置”对话框，参照图二，将四个动作按钮分别链接到当前幻灯片。 3、设置标注的动画效果。右键单击其中一个标注文本框（如答案B的标注），在快捷菜单中执行“自定义动画”命令，然后在右边的“任务窗格”中单击“添加效果”，选择一种效果。 4、用右键单击“任务窗格”下部动画列表框中的标注B的缩略图，在弹出的快捷菜单中选择“效果选项”。 5、紧接着会弹出如图五所示的对话框，在“效果”标签下，为它设置一种爆炸声音，并设为“动画播放后隐藏”。 6、为了使动画在播放后不至于立即隐藏，在对话框的“计时”选项卡中，“速度”一栏输入4秒。并单击“触发器”按钮进行设置。触发器的作用是使在单击按钮B时启动标注动画。 7、其它几个标注的设置类似，只是在设置答案A的标注时，将声音设为“鼓掌”，“播放动画后”设为“不变暗”。8、在演示窗口绘制一个“前进或下一项”动作按钮，同时插入一张新幻灯片，开始制作下一道试题。你看短短十几分钟，一道声形并茂的交互式选择题就完成了，看看效果，不比Authorware差吧，赶快试试吧！14