在Powerpoint中用VBA制作交互课件.doc

在Powerpoint中用VBA制作交互课件随着我国经济的腾飞，学校大都配上了多媒体教室，老师们上课也都用上了课件。由于Microsoft Powerpoint 直观易用，所以教师们大都用它来制作课件，然而由于Powerpoint 相对于其它软件来说交互性差，所以制作出来的课件总是感觉缺少活力。其实我们完全可以利用Microsoft Office中的VBA编程来制作出交互性强的课件。1 显示控件工具箱在PowerPoint中选择菜单“视图/工具栏/控件工具箱”。或在工具栏处右击，然后再选中控件工具箱。其中我们常用的有复选框、文本框、命令按钮、单选框、标签。（1）复选框（CheckBox）：可以选择多个选项，常用来设计多选题；（2）文本框（TextBox）：可以输入文本，常用来设计填空题；（3）命令按钮（CommandButton）：用来确定选择或输入，也可设计超级链接；（4）单选框（OptionButton）：只能选中一个选项，常用来设计单选题或判断题；（5）标签（Label）：用来显示文字信息。2、在幻灯片中插入控件单击控件工具箱上的工具按钮，然后在幻灯片中拖动到适当大小即可。右击控件选择属性进行属性设置，如图2。3、制作交互课件实例：（1）制作填空题：首先用文本框输入题目，再在需要填写答案的地方放上两个文本框，在下面插入两个命令按钮，并把文本框的text属性改为空，把命令按钮的caption属性分别改为“重新填写”与“提交答案”，如图3所示。然后双击“重新填写”按钮，进入VBA编程：在Private Sub CommandButton1_Click()与End Sub两行中间输入如下代码：TextBox1.Text = TextBox2.Text = 意思使两个文本框的text属性为空，以便重新填写。双击“提交答案”按钮，在Private Sub CommandButton2_Click()与End Sub两行中间输入：If TextBox1.Text = 150 And TextBox2.Text = 125 Thena = MsgBox(你真棒！是否继续, vbYesNo + vbQuestion, 下一题) = vbYesWith SlideShowWindows(1).View.GotoSlide 2End WithElse: a = MsgBox(对不起！你做错了)End If意思是如果两个文本框填写的数分别为150和125，则会弹出消息框“你真棒！是否继续”，如果点“是”则会进入第二张幻灯片，如果填错了则会弹出“对不起！你做错了”。（2）制作单选题：用文本框输入题目，在下面插入三个单选框与三个命令按钮，并把单选框的value属性设为false，Caption属性分别设为9.99、10.0、10.00。三个命令按钮的Caption属性分别设为“提交答案”、“重新选择”和“下一题”。另外在右边的空白处插入一个标签，将它的Caption属性设为空。如图4所示。双击“提交答案”按钮，Private Sub CommandButton1_Click()与End Sub两行中间输入如下代码：If OptionButton3.Value = True ThenLabel1.Caption = 你真棒!Else: Label1.Caption = 好好想想!End If意思是如果第三个单选框的Value属性为True,即选择的是第三个按钮，则标签显示为“你真棒！”，否则显示“好好想想！”。双击“重新选择”按钮，在Private Sub CommandButton2_Click()与End Sub两行中间输入如下代码OptionButton1.Value = FalseOptionButton2.Value = FalseOptionButton3.Value = FalseLabel1.Caption = 即三个单选框均为不选中状态。并将标签的内容清空。双击“下一题”按钮，在Private Sub CommandButton3_Click()与End Sub两行中间输入如下代码：With SlideShowWindows(1).View.GotoSlide 2 End With也就是单击下一题可进入第2张幻灯片，这里的2可以视情况而定。（3）制作多选题。首先输入题目，插入四个复选框和三个命令按钮，把四个复选框的Value属性设为False即不选中状态，把Caption属性分别设为2、3、5、9。把三个命令按钮的Caption属性分别设为“提交答案”、“重新选择”、“下一题”。在右边空白处插入一个标签，将Caption属性设为空。如图5所示。双击“提交答案”按钮，输入如下代码：If CheckBox1.Value = True And CheckBox2.Value = True And CheckBox3.Value = True And CheckBox4.Value = False ThenLabel1.Caption = Else: Label1.Caption = End If意思是如果第一、第二和第三个复选框的Value属性为True，即选中状态，则在标签中显示“”，否则显示“”。双击“重新选择”按钮，输入如下代码：CheckBox1.Value = FalseCheckBox2.Value = FalseCheckBox3.Value = FalseCheckBox4.Value = FalseLabel1.Ca