ppt课件制作之交互式操作实例教程

2008年05月18日星期日 16:17

交流qq:368834848,email:chuanbinkj@https://www.360docs.net/doc/db17311118.html,(王传斌),愿与各位爱好者一起共探课件制作的高级技巧,以期大家都获得最大的进步.

虽然现在很多老师都在用POWERPOINT制作课件,可是绝大部分的老师都认为它不能进行交互式的对话操作,其实是这样的吗？下面以一个实例制作给各位讲解POWERPOINT是如何实现强大的交互操作的，我想你如果跟着做完以后，肯定会说：“没想到POWERPOINT也做到这样呀！”。

好了！大家都知道，在课件制作中常常要制作单选题、多选题、填空题和判断题，下面这个实例就是制作这几类题目。

1、启动POWERPOINT，将幻灯片版式设为“空白版式”。单击菜单中的“插入”--“文本框”--“水平”，在插入的文本框中输入“PowerPoint交互演示文稿”，同理插入其他文本框并输入相应的内容及相应格式化，最后结果如下图所示(注意，有十一个文本框哦！）：

接下来单击“视图”菜单--“工具栏”--“控件工具箱”，出现如下图所示的控件工具箱：

控件解释如下:

2、制作单选题选项

单击控件工具箱中的“选项按钮”，将鼠标标移至第1题下面（此时鼠标指针为细十字），拖动出一个合适大小的矩形框。此时你应该会看到一个单选按钮，并且选项内容为OptionButton1。接着右击这个单选按钮，选择弹出的快捷菜单中的“属性”，打开属性对话框并做如下图所示的设置：

解释一下：这里我分别对名称、Caption和GroupName项进行设置。

①名称：即该单选按钮的名字，默认为OptionButton1，为了方便，我改为Optb1；

②Caption即标题，它是指显示在单选按钮后的文字，默认为OptionButton1，在第一个选项中，我按题目将其改为“美国”；

③GroupName即分组名，因为若干个单选项中我们只能选择其中之一，这样我们就需要将第一题的四个单选按钮分成一组，第二题的四个选项分成另一组，这样就不会出现八个单选按钮只能选择一个的现象了。

再接下来，用同样的方法，再制作其他七个单选项到相应位置，分别取

名为Optb2---Optb8，并将前四个划为第一组，GroupName属性为group1，后四个划为一组，GroupName属性为group2。Caption项分别设为相应的选择内容。此时的两道单选题的选项添加完成，如下图：

单击控件工具箱中的“复选框”，将鼠标移至第3题下面，拖动鼠标，画出一个矩形框，此时我们会看到一个复选按钮，并且在后面有CheckBox1。然后单击控件箱中的“属性”也会打开属性设置窗口，分别将其（名称）设为Chkb1、Caption设为“单击开始中的程序查找”、GroupName设为group3（注意不要与两组单选题的组名同名哦）。

3、制作多选题的选项

用同样的方法制作并设置其他多选项，名字分别为Chkb2---Chkb8，Caption设为相应的选择项，将前四个复选按钮的GroupName设置为group3，其他四个设为group4。此时已完成单选项、多选项的添加，如下图所示：

单击控件工具箱中的“文本框”，将鼠标移至第5题空位置，拖动出合

适的大小，这样就会看到一个空的文字框。然后单击控件箱中的“属性”，将其（名称）设为Txb1，同理制作其他两个文本框，名称分别为Txb2和Txb3。完成后的填空如下图所示：

4、制作填空题的空

单击控件工具箱中的“切换按钮”，将鼠标移至第7题后面，拖动鼠标，我们会看到一个按钮。然后单击控件箱中的“属性”，将其（名称）属性设置为Tgb1,Caption值设为“判断”。如图所示：

5、制作判断题的判断按钮

单南控件工具箱中的“命令按钮”，在合适的位置拖动鼠标，我们会看到一个命令按钮。然后单击控件箱中的“属性”，在属性窗口中将其（名称）属性设置为Cmb1和Cmb2，Caption分别设为“开始答题”和“查看成绩”即可。

6、制作开始答题和查看答案两个命令按钮

OK！到这里为止，我们的界面设计就全部结束了。最后界面如下图所示：

那是不是到这里就真的全部完成了呢？当然不是！还有最精华的部分还没做，即还要对相应的判断、答题按钮编写代码。这个较难，有些老师可能有难度，耐心看一下，其实这些代码只是一些很简单的程序，有学过VB的老师就相对较容易了。

7、对判断题按钮编写代码

大击判断按钮，就会出现其单击事件的代码窗口，在Private Sub tgb1_Click()和End sub之间写入一句代码

If tgb1.value=true Then tgb1.Caption="√" Else tgb1.Caption="×"

如下图所示：

双击“开始答题”按钮，在Private Sub Cmb1_click()和End sub之间写入如下绿色代码：

Optb1.Value = False

Optb2.Value = False

Optb3.Value = False

Optb4.Value = False

Optb5.Value = False

Optb6.Value = False

Optb7.Value = False

Optb8.Value = False