用VBA实现PPT课件的智能交互

用VBA 实现课件中的智能交互PowerPoint 中的VBA 可以实现不少复杂的交互，但不少老师面对VBA 编程，都会觉得无从下手。

所以本期我们为大家安排了一个关于PowerPoint 中VBA 的小专题，以后在课件中实现交互就不会那末费劲了。

说到VBA 编程，就不得不提到控件工具箱，我们需要利用其中的控件搭建需要的环境。

1 ．显示控件工具箱在PowerPoint 中选择菜单“视图/工具栏/控件工具箱”。

2 ．控件工具箱(如图1)中常用按钮的介绍(1)复选框(CheckBox)：可以选择多个选项，常用来设计多选题；(2)文本框(TextBox)：可以输入文本，常用来设计填空题；(3)命令按钮(CommandButton)：用来确定选择或者输入，也可设计超级链接；(4)单选框(OptionButton)：只能选中一个选项，常用来设计单选题或者判断题；(5)标签(Label)：用来显示文字信息。

3 ．插入控件的方法单击控件工具箱上的工具按钮，然后在幻灯片中拖动到适当大小即可。

4 ．进入VBA 的方法双击幻灯片中的控件或者用菜单命令“工具/宏/Visual basic 编辑器”即可进入VBA 编程状态。

5 ．控件的主要属性及设置方法进入VBA 后，需要在“属性”窗口中对控件的属性进行设置。

如果没有浮现“属性”窗口，按F4 键即可调出该窗口。

下面我们就不同的控件，来说明常用属性的设置方法。

(1)复选框AutoSize：有两个值，True 表示根据字的多少调整复选框的大小，False 表示复选框为固定大小；BackColor：设置复选框的背景颜色，单击该属性框浮现下拉按钮，选择“调色板”选项卡后选择颜色；Caption：控件的名称，把默认值删除再重新输入新名称；Font：设置字体、字号及字形，单击该属性框浮现按钮，单击该按钮浮现字体对话框，再在对话框中设置；Forecolor：设置字的颜色，设置方法同BackColor；Height：复选框的高度，直接输入数字即可；Width：复选框的宽度，直接输入数字即可；Value：复选框的值，True 为选中，False 则相反。

(2)文本框AutoSize 、BackColor 、Font 、ForeColor、Height 、Width 等属性的设置方法同复选框；Value：文本框的值，用来保存输入的文本；TextAlign：设置文本对齐方式。

(3)单选框属性设置同复选框。

(4)标签除Value 外，其他同复选框。

(5)命令按钮同标签。

6 ．消息框MsgBox的功能我们常用消息框显示一些交互的信息，如图 2 所示的消息框用下面的语句可实现：Msgbox("这是一个例题",VbYesNo,"示例")一、填空题的制作1. 题目的设置同单选题，填空的地方用文本框。

2. 判断正误：因为是填空题，所填答案是文本，所以条件书写为：if TextBox1.value="正确的文本"then 给出正确的提示信息同单选题else给出错误的提示信息同单选题end if注意：正确的文本一定要用半角双引号括起来，如几个空一起判断，方法同多选题。

3. [重新填空]命令按钮：需要完成如下语句的设置：Private Sub CommandButton2_Click()TextBox1.Value = "请双击后填入你的答案！"End SubPrivate Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)TextBox1.Value = " "End Sub1、在相应的演示文稿中，添加一张空白幻灯片。

并用文本框输入填空题的题目内容(参见图六)。

2、执行“视图→工具栏→控件工具箱”命令，展开“控件工具箱”工具条(参见图六)。

单击工具条上的“文本框”按钮，然后在填空题的空格处拖拉出一个控件文本框来(参见图六)。

注意：选中文本框，单击工具条上的“属性”按钮，展开“文本框”属性对话框(参见图七) ，选中“font”选项，然后点击后面“…”号，可以打开“字体”对话框，设置字体、字型、字号；选中“TextAlig”选项，然后按其右侧的下拉按钮，即可设置文本的对齐方式。

3、再单击工具条上的“命令按钮”按钮，然后在幻灯片合适位置上拖拉出一个按钮来 (参见图七) 。

选中此按钮，单击工具条上的“属性”按钮，展开“命令按钮”属性对话框(参见图七) ，将其中的“Caption”选项后面的内容修改为“查看结果” (具体修改内容，请根据需要确定)，并关闭属性窗口。

4、双击插入的命令按钮，进入VBA 编辑窗口(如图八)，在“Private SubCommandButton1_Click()”和“End Sub”语句之间，输入下述代码：If TextBox1.Text = "物理" Thenhd = MsgBox("你填对了", vbOKCancel, "结果")Elsehd = MsgBox("你填错了", vbOKCancel, "结果")End If代码输入完成后的效果请参见图八。

注意：①代码中的“hd”为自定义变量，可以用其他字母代码。

②根据实际需要，可以将代码中的相应的字符替换成其他字符。

5、关闭VBA 编辑窗口。

制作完成，赶快按下F5 功能键，检查一下实际效果吧(图九是演示的效果)！二、单选题的制作例如我们要设计如图1 所示的选择题。

1．题目可用文本框，也可用标签。

如果用文本框，直接输入文本即可。

如果用标签，插入后双击该标签启动VBA，修改Caption 属性为“5X- 15=0 的解是：” ，再根据需要修改其他属性(如颜色等)。

2．选项插入一单选框，修改其Caption 属性为“0”，其他属性可自行修改。

其他的单选项可复制制作好的单选框，然后再修改它们的Caption 属性。

3 ．查看答案命令按钮在此使用命令按钮，我们可根据单选框的Value 属性的值来判断答案，如正确选项(单选框)的Value 的值为True，则为该题选择正确，否则为选择错误，我们还可根据选择正误来给出信息，有两种方法。

(1)方法一用MsgBox ()，如果选择正确，显示信息“Very Good!请继续！”，错误则显示“Sorry,你选错了！正确答案是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=MsgBox ("正确答案是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 ，请继续努力。

"”即可。

4 ．重新选择命令按钮在幻灯片适当的地方插入一命令按钮，修改其Caption 属性为“重新选择”，在编辑窗口中的Priva te Sub CommandButton1_Click()和End Sub 语句间插入：OptionButton1.Value = FalseOptionButton2.Value = FalseOptionButton3.Value = FalseLabel2.Caption =""如判断正误用的是方法一，此语句不要)5 ．下一题命令按钮在幻灯片适当地方插入一命令按钮，修改其Caption 属性为“下一题”，在编辑窗口中的Private Su b CommandButton1_Click()和End Sub 语句间插入If MsgBox("是否继续", vbYesNo + vbQuestion, “下一题”)=vbYes ThenWith SlideShowWindows(1).View.GotoSlide 2End With (2 为第2 张幻灯片，此语句表示转到第2 张幻灯片)End if如果要根据条件的不同转到不同的幻灯片，可用下面语句：if 条件thenWith SlideShowWindows(1).View.GotoSlide 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 连接，表示同时满足这几个条件，例如第一、三、五的选项是正确的，则需要输入如下语句：If CheckBox1.Value=True And CheckBox3.Value=True And CheckBox5.Value=True Then给出正确的提示信息同单选题else给出错误的提示信息同单选题end if如图 1，这是一个答题界面示例，可以判断答案正确性的多项选择题，下面我们来看看具体的实现过程。