用VBA制作交互式POWERPOINT课件

1、用VBA制作交互式POWERPOINT课件张友文安阳市第63中学VBA（VB for Application）是一种程序设计语言，包含在Office各组件之中。OfficeVBA实际上是VisualBasic的一个子集，它具备VB大部分功能，PowerPoint中的VBA可以实现很多复杂的交互，在制作PowerPoint课件时如果能巧妙地使用VBA进行设计，可以提高制作效率、增强交互功能。一、PowerPoint VBA基础说到VBA编程，就不得不提到控件工具箱，显示控件工具箱可在PowerPoint中选择菜单“视图/工具栏/控件工具箱”。插入控件的方法为单击控件工具箱上的工具按钮，然后在幻灯

2、片中拖动到适当大小即可。图11、控件工具箱中常用按钮的介绍 “属性”按钮，修改控件的属性，要选择一个控件之后才可激活该按钮。“查看代码”按钮，可以查看或编辑你的VBA代码。“复选框”控件，可以选择多个选项，常用来设计多选题。“文本框”控件，可以输入文本，常用来设计填空题。“命令按钮”控件，用来确定选择或输入，也可设计超链接。“单选框”控件，常用来设计单选题或判断题。“滚动条”控件，为长文本添加滚动条。“标签”控件，用来显示文字信息。“图像”控件在窗体上加入图片。“其他控件”弹出一个你的计算机中已有的控件工具列表（如图2），你可以挑选出一种控件后，POWERPOINT将自动在控件列表中添加这个控

3、件，然后你就可以将这个控件加入到你的幻灯片上了。图22、控件的主要属性及设置方法进入VBA的方法为双击幻灯片中的控件或用菜单命令“工具/宏/Visual basic编辑器”即可进入VBA编程状态。进入VBA后，需要在“属性”窗口中对控件的属性进行设置。如果没有出现“属性”窗口，按F4键即可调出该窗口。下面我们就不同的控件，来说明常用属性的设置方法。复选框：AutoSize：有两个值，True表示根据字的多少调整复选框的大小，False表示复选框为固定大小；BackColor：设置复选框的背景颜色，单击该属性框出现下拉按钮，选择“调色板”选项卡后选择颜色；Caption：控件的名称，把默认值删除

4、再重新输入新名称；Font：设置字体、字号及字形，单击该属性框出现按钮，单击该按钮出现字体对话框，再在对话框中设置；Forecolor：设置字的颜色，设置方法同BackColor；Height：复选框的高度，直接输入数字即可；Width：复选框的宽度，直接输入数字即可；Value：复选框的值，True为选中，False则相反。（如图3） 图3 图4文本框：AutoSize、BackColor、Font、ForeColor、Height、Width等属性的设置方法同复选框；Value：文本框的值，用来保存输入的文本；TextAlign：设置文本对齐方式。（如图4）单选框的属性设置同复选框。标签、

5、命令按钮的属性设置：除Value外，其他同复选框。二、交互式PPT课件制作案例（一）单选题的制作例如我们要设计如图5所示的选择题。制作过程如下：1、创建题目新建一张空“幻灯片”。 选择题可用文本框，也可用标签。如果用文本框，插入文本框后，直接输入文本“0.5x-0.5=10的解是：”即可。如果用标签，插入标签后双击该标签启动VBA，修改Caption属性为“0.5x-0.5=10的解是：”，再根据需要修改其他属性（如颜色、字体及字体大小等）。2、创建选项插入一单选框，修改其Caption属性为“0”，其他属性可自行修改。其他的单选项可复制制作好的单选框，然后再修改它们的Caption属性，如下

6、图。图53、创建“查看答案”命令按钮使用命令按钮，我们可根据单选框的Value属性的值来判断答案，如正确选项（单选框）的Value的值为True，则为该题选择正确，否则为选择错误，我们还可根据选择正误来给出信息。使用MsgBox（）函数，本例中如果选择正确，显示信息“您答对了!请继续！”，错误则显示“对不起,你选错了！正确答案是21，请继续努力。”操作步骤：A.设置正确答案21：双击单选框 21进入VBA，在编辑窗口中完成以下操作。在编辑窗口中找到如下两条语句：Private Sub OptionButton3_Click()End Sub然后在上面这两条语句中间插入以下语句：If Optio

7、nButton3.Value=True Then ex=MsgBox(您答对了!请继续努力。,Vbokonly)B. 设置错误答案0：双击单选框 5进入VBA，在编辑窗口中找到如下两条语句：Private Sub OptionButton1_Click()End Sub在这两条语句中间插入语句：If OptionButton1.Value=True Then ex=MsgBox（对不起,你选错了！正确答案是21 ，请继续努力。,Vbokonly）C. 设置错误答案20: 双击单选框 20进入VBA，在编辑窗口中找到如下两条语句Private Sub OptionButton2_Click()E

8、nd Sub在这两条语句中间插入语句If OptionButton2.Value=True Then ex=MsgBox（对不起,你选错了！正确答案是 21，请继续努力。,Vbokonly）说明：ex为自定义变量4、创建“重新选择”命令按钮在幻灯片适当的地方插入一命令按钮，修改其Caption属性为“重新选择”，在编辑窗口中的Private Sub CommandButton1_Click()和End Sub语句间插入：OptionButton1.Value = FalseOptionButton2.Value = FalseOptionButton3.Value = False5、创建“下一

9、题”命令按钮在幻灯片适当地方插入一命令按钮，修改其Caption属性为“下一题”，在编辑窗口中的Private Sub CommandButton1_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.Got

10、oSlide 2End WithEnd if 说明：条件可以是Caption属性或value属性，书写方法为：控件名称（在VBA中的名称）.属性=（value属性为True或False，Caption属性为具体文本，注意文本要加双引号），例如下面的语句：If optionbutton1.value=true then 表示如果单选框1的value值为True，那么运行then后的语句，一直到end if。（二）多选题的制作1、 题目的设计同单选题2、 选项：用复选框（CheckBox)，其他设置同单选题。3、 创建查看答案命令按钮：因为是多选题，答案有多个，所以要书写多个条件，条件之间用and

11、连接，表示同时满足这几个条件，例如第一、三、五的选项是正确的，则需要输入如下语句：If CheckBox1.Value=True And CheckBox3.Value=True And CheckBox5.Value=True Then给出正确的提示信息同单选题Else给出错误的提示信息同单选题end if多选题的制作与单选题的制作相同，因篇幅限制，本处不再给出实例。（三）判断题的制作所有的设置与单选题类似，本处不再给出实例，区别是设计两个选项“”和“”，这两个符号可先在Word中插入，然后再复制过来。（四）填空题的制作题目的设置同单选题，填空的地方用文本框。2. 判断正误：因为是填空题，所

12、填答案是文本，所以条件书写为：if TextBox1.value=正确的文本 then 给出正确的提示信息同单选题else给出错误的提示信息同单选题end if （注意：正确的文本一定要用半角双引号括起来，如几个空一起判断，方法同多选题。）制作过程如下：1、创建并设置填空题：新建一张空“幻灯片”，放置一个“文本框”，输入您所需要的文本，如：“She_agoodstudent.” ；点击“控件工具”上的“文本框”控件(这时鼠标会变成“十字形”)，然后在“She”“a”之间拖拽鼠标，就可以放置一个“文本框”控件，最后调整好大小和位置。再点击“控件工具箱”上的“命令按钮”控件，用同样的方法拖拽鼠标在

13、幻灯片上放置一个“命令按钮”控件。用鼠标“右键”点击刚刚放置好的“命令按钮”，选择“属性”。此时会弹出如(图4)所示的对话框。找到“Caption”项，把后面的“CommandButton1”值改成“完成”，关闭属性对话框，即可改变按键名字。双击“完成”，此时便进入到了VisualBasic代码编写环境里。你会看到如下所示的两行代码 PrivateSubCommandButton1_Click() EndSub 把这上面的两行代码改成： PrivateSubCommandButton1_Click() IfTextBox1.Text=“is”Then MsgBox“你答对了” Else Msg

14、Box“你答错了！” EndIf EndSub （说明：此处使用了一个Ifthen语句。你也可以使用While语句。）按F5按键观看效果，随便输入一个单词，然后单击“完成”看看有什么结果。注意：至于实际需要多少题，只要如法炮制即可。2、创建“重新填空”命令按钮：在幻灯片适当的地方插入一命令按钮，修改其Caption属性为“重新填空”，在编辑窗口中需要完成如下语句的设置：Private Sub CommandButton2_Click()TextBox1.Value = 请双击后填入你的答案！End SubPrivate Sub TextBox1_DblClick(ByVal Cancel As

15、 MSForms.ReturnBoolean)TextBox1.Value = End Sub（五）使用滚动条：在制作幻灯片时，如果文字内容过多，不能全部展示，分成若干页，上翻下翻十分不便，放在一页又受版面限制，容纳不下，就可以用“控件工具箱”来解决，制作过程如下：新建一个幻灯片，选择所需版面。打开“控件箱工具箱”如上例插入“文字框”控件，在编辑区按住鼠标左键拖拉出一个文本框，调整位置及大小。然后设置“文字框”属性（如图4），在属性窗口中对文字框的一些属性进行设置。其中：EnterKeyBehavior属性：设为True时允许使用回车键换行。MultiLine属性：设为True时允许输入多行文

16、字。ScrollBars属性：利用滚动条来显示多行文字内容，其中1-fmScrollBarsHorzontal为水平滚动条；2-fmScrollBarsVertical为垂直滚动条；3-fmScrollBarsBoth为水平滚动条与垂直滚动条均存在。当文字不超出文字框时，滚动条设置无效，当文字超出文字框时，则出现一个可拖动的滚动条。注意：要实现滚动条对文本的控制，必须设置EnterKeyBehavior属性为True，MultiLine属性为True，并按需设置ScrollBars属性。其他属性可根据个人需要进行设置，比如BackColor用来设置文字框的背景颜色，TextAlign用来设置文

17、字对齐方式等。最后输入文字框内容：右击“文字框”，选择文字框 对象编辑（如图4），即可进行文字内容的输入，或按Ctrl+V把剪贴板上的文字拷贝到文字框中。文本编辑完之后，在文字框外任意处单击左键退出编辑状态。至此，一个文字可以随滚动条上下拖动而移动的文本框就完成了。 图6三、交互制作案例-给幻灯片做一个跳转按键给幻灯片做一个跳转按键，在播放幻灯时只要按下相应的按钮就可以是播放的内容跳转到相应的片断。比方说，从第1页跳到第2页或从第2页跳到第1页。制作过程如下：首先在幻灯片上放置一个“命令按钮控件”。然后双击它，进入VisualBasic编辑器，输入以下代码：PrivateSubCommandButton1_Click() SlideShowWindows(Index:=1).View.GotoSlideIndex:=2EndSub 说明：index:=2指跳到第2页，如果需要跳到第3页则输入以下代码：SlideShowWindows(Index:=1).