PPT实例：互动式幻灯片(2)

excelddd

　二、VBA法
　　采取上述“触发器法”通常只能制作选择性的互动幻灯片，而对于那些填空式的互动幻灯片，我们用VBA来实现。
　　1、在相应的演示文稿中，添加一张空白幻灯片。并用文本框输入填空题的题目内容（参见图六）。

2、执行“视图→工具栏→控件工具箱”命令，展开“控件工具箱”工具条（参见图六）。单击工具条上的“文本框”按钮，然后在填空题的空格处拖拉出一个控件文本框来（参见图六）。
　　注意：选中文本框，单击工具条上的“属性”按钮，展开“文本框”属性对话框（参见图七），选中“font”选项，然后点击后面“…”号，可以打开“字体”对话框，设置字体、字型、字号；选中“TextAlig”选项，然后按其右侧的下拉按钮，即可设置文本的对齐方式。

　　3、再单击工具条上的“命令按钮”按钮，然后在幻灯片合适位置上拖拉出一个按钮来（参见图七）。选中此按钮，单击工具条上的“属性”按钮，展开“命令按钮”属性对话框（参见图七），将其中的“Caption”选项后面的内容修改为“查看结果”（具体修改内容，请根据需要确定），并关闭属性窗口。
4、双击插入的命令按钮，进入VBA编辑窗口（如图八），在“Private Sub CommandButton1_Click()”和“End Sub”语句之间，输入下述代码：

　If TextBox1.Text = "物理" Then
　　　　hd = MsgBox("你填对了", vbOKCancel, "结果")
　　Else
　　　　hd = MsgBox("你填错了", vbOKCancel, "结果")
　　End If
　　代码输入完成后的效果请参见图八。
　　注意：①代码中的“hd”为自定义变量，可以用其他字母代码。②根据实际需要，可以将代码中的相应的字符替换成其他字符。
　　5、关闭VBA编辑窗口。
　　制作完成，赶快按下F5功能键，检查一下实际效果吧（图九是演示的效果）！

liangying

很不错，顶一下！

qwf8875169

好东西，努力学习学习！

txg1976

感谢楼主分享，很不错！