2024年5月9日发(作者：)

用 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

一、 填空题的制作

1. 题目的设置同单选题，填空的地方用文本框。

2. 判断正误：因为是填空题，所填答案是文本，所以条件书写为：

if ="正确的文本"then 给出正确的提示信息同单选题

else

给出错误的提示信息同单选题

end if

注意：正确的文本一定要用半角双引号括起来，如几个空一起判断，方法同多选题。

3. [重新填空]命令按钮：需要完成如下语句的设置：

Private Sub CommandButton2_Click()

= "请双击后填入你的答案！ "

End Sub

Private Sub TextBox1_DblClick(ByVal Cancel As Boolean)

= " "

End Sub

1、在相应的演示文稿中，添加一张空白幻灯片。并用文本框输入填空题的题目内容(参见图六)。

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

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

注意： 选中文本框， 单击工具条上的“属性”按钮， 展开“文本框”属性对话框(参见图七) ，选中“font”

选项，然后点击后面“…”号，可以打开“字体”对话框，设置字体、字型、字号；选中“TextAlig”选项，

然后按其右侧的下拉按钮，即可设置文本的对齐方式。

2