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

《在Powerpoint中用VBA制作交互课件.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、在Powerpoint中用VBA制作交互课件随着我国经济的腾飞，学校大都配上了多媒体教室，老师们上课也都用上了课件。由于MicrosoftPowerpoint直观易用，所以教师们大都用它来制作课件，然而由于Powerpoint相对于其它软件来说交互性差，所以制作出来的课件总是感觉缺少活力。其实我们完全可以利用MicrosoftOffice中的VBA编程来制作出交互性强的课件。1．显示控件工具箱在PowerPoint中选择菜单“视图/工具栏/控件工具箱”。或在工具栏处右击，然后再选中控件工具箱。其中我们

2、常用的有复选框、文本框、命令按钮、单选框、标签。（1）复选框（CheckBox）：可以选择多个选项，常用来设计多选题；（2）文本框（TextBox）：可以输入文本，常用来设计填空题；（3）命令按钮（CommandButton）：用来确定选择或输入，也可设计超级链接；（4）单选框（OptionButton）：只能选中一个选项，常用来设计单选题或判断题；（5）标签（Label）：用来显示文字信息。2、在幻灯片中插入控件单击控件工具箱上的工具按钮，然后在幻灯片中拖动到适当大小即可。右击控件选择属性进行属性设

3、置，如图2。3、制作交互课件实例：（1）制作填空题：首先用文本框输入题目，再在需要填写答案的地方放上两个文本框，在下面插入两个命令按钮，并把文本框的text属性改为空，把命令按钮的caption属性分别改为“重新填写”与“提交答案”，如图3所示。然后双击“重新填写”按钮，进入VBA编程：在PrivateSubCommandButton1_Click()与EndSub两行中间输入如下代码：TextBox1.Text=""TextBox2.Text=""意思使两个文本框的text属性为空，以便重新填写。双

4、击“提交答案”按钮，在PrivateSubCommandButton2_Click()与EndSub两行中间输入：IfTextBox1.Text="150"AndTextBox2.Text="125"Thena=MsgBox("你真棒！是否继续",vbYesNo+vbQuestion,"下一题")=vbYesWithSlideShowWindows(1).View.GotoSlide2EndWithElse:a=MsgBox("对不起！你做错了")EndIf意思是如果两个文本框填写的数分别为150和1

5、25，则会弹出消息框“你真棒！是否继续”，如果点“是”则会进入第二张幻灯片，如果填错了则会弹出“对不起！你做错了”。（2）制作单选题：用文本框输入题目，在下面插入三个单选框与三个命令按钮，并把单选框的value属性设为false，Caption属性分别设为9.99、10.0、10.00。三个命令按钮的Caption属性分别设为“提交答案”、“重新选择”和“下一题”。另外在右边的空白处插入一个标签，将它的Caption属性设为空。如图4所示。双击“提交答案”按钮，PrivateSubCommandBut

6、ton1_Click()与EndSub两行中间输入如下代码：IfOptionButton3.Value=TrueThenLabel1.Caption="你真棒!"Else:Label1.Caption="好好想想!"EndIf意思是如果第三个单选框的Value属性为True,即选择的是第三个按钮，则标签显示为“你真棒！”，否则显示“好好想想！”。双击“重新选择”按钮，在PrivateSubCommandButton2_Click()与EndSub两行中间输入如下代码OptionButton1.Valu

7、e=FalseOptionButton2.Value=FalseOptionButton3.Value=FalseLabel1.Caption=""即三个单选框均为不选中状态。并将标签的内容清空。双击“下一题”按钮，在PrivateSubCommandButton3_Click()与EndSub两行中间输入如下代码：WithSlideShowWindows(1).View.GotoSlide2EndWith也就是单击下一题可进入第2张幻灯片，这里的2可以视情况而定。（3）制作多选题。首先输入题目，插入

8、四个复选框和三个命令按钮，把四个复选框的Value属性设为False即不选中状态，把Caption属性分别设为2、3、5、9。把三个命令按钮的Caption属性分别设为“提交答案”、“重新选择”、“下一题”。在右边空白处插入一个标签，将Caption属性设为空。如图5所示。双击“提交答案”按钮，输入如下代码：IfCheckBox1.Value=TrueAndCheckBox2.Value=TrueAndCheckBox3.Value=TrueAndChe