Transcript 用VBA实现PPT中的交

用VBA实现PPT中的交互功能
主讲人：闫丽娟
一、显示控件工具箱
 在PowerPoint中选择菜单“视图/工具栏/控
件工具箱”
二、控件工具箱中常用按钮的介绍
 （1）复选框（CheckBox）：可以选择多个
选项，常用来设计多选题；
 （2）文本框（TextBox）：可以输入文本，
常用来设计填空题；
 （3）命令按钮（CommandButton）：用来
确定选择或输入，也可设计超级链接；
 （4）单选框（OptionButton）：只能选中一
个选项，常用来设计单选题或判断题；
三、实例讲解：
1、利用单选框（OptionButton）做单项选择
题
 在PPT中输入题干：
 用单选框（OptionButton）控件制作选项
 （OptionButton）控件属性设置：
 AutoSize：有两个值，True表示根据字的多少调
整复选框的大小，False表示单选框为固定大小；
 BackColor：设置单选框的背景颜色；
 BackStyle：右侧的下拉列表中选择“0fmBackStyleTransparent”，可以使做出的单选项
背景透明。
属性设置
Caption：设置控件在幻灯片中对应显示的文本（即
我们所需要的内容），把默认值删除再重新输入
新名；
Font：设置字体、字号及字形；
Forecolor：设置字的颜色，设置方法同BackColor；
Height：单选框的高度，直接输入数字即可；
Width：单选框的宽度，直接输入数字即可；（一般
高度和宽度自己拖曳鼠标来定）
Value：单选框的值，True为选中，False则相反。
交互性对话框的设置
8 ”，点
击右键，在弹出菜单中选择“查看代码”命
令，在打开的窗口中找到
 选中代表正确答案的那个单选项“A
Private Sub OptionButton1_Click()
End Sub
交互性对话框的设置
在这两段代码中间插入代码：
MsgBox ("恭喜您，答对了!")
*设置提示框及提示信息的*
msgbox是一个在VB里弹出一个对话框的函数
MsgBox (“恭喜您，答对了!”)
入新代码
在
后面再加
OptionButton1.Value = False And
OptionButton3.Value = False And
OptionButton4.Value = False
*单击A选项后使其它各选项恢复到未选中状态*
2、利用复选框(CheckBox)做多项选择题
用前面的方法插入四个复选框，调整好位置。
再插入一个命令按钮，打开“属性”对话框，
将命令按钮的属性“Caption”值设为“提交答
案”。
选中“提交答案”按钮，在右键菜单中选择
“查看代码”命令，打开代码编辑窗口。
判断：如果第1、2个复选
框均为选中状态的话，就
弹出一个表示答对的提示
框，否则就弹出一个答错
的提示框
在窗口中找到如下两句代码：
Private Sub CommandButton1_Click()
End Sub
在这两句代码中间插入以下代码：
If CheckBox1.Value = True And CheckBox2.Value =
True And CheckBox4.Value = FLASE And
CheckBox3.Value = False Then
MsgBox "厉害，答对了!", vbOKOnly, "多项选择题"
Else
MsgBox "不好意思，您做错了。再仔细想想?",
vbOKOnly, "多项选择题"
End If
如果将所有复选框的选中状态消除，以便再
次选择，如何完成？
在 End If 前输入
CheckBox1.Value = False
CheckBox2.Value = False
CheckBox3.Value = False
CheckBox4.Value = False