powerpoint中利用vba制作制作智能课件 - 办公软件

《powerpoint中利用vba制作制作智能课件 - 办公软件》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、PowerPoint中利用VBA制作制作智能课件-办公软件　在众多的课件类型中，练习与测验类课件是比较重要的一种类型。该类课件的安排十分灵活，可以穿插在课堂的讲课过程中，在讲完一个知识点后，出一两道相关的测验题，考考学生对知识点的掌握程度；也可以把练习与测验类课件作为一个独立的部分，制作成为一个完整的课件，专门作课堂和课后的练习。　　练习与测验类课件最重要的特征是交互性。学生在答题的时候得到反馈信息，可以调动学生的积极性。本文将介绍一种利用ActiveX控件和VBA制作一个单项选择题智能课件的方法。　　所谓VBA就是MicrosoftVisualBasic的宏语言版本（用于编写Windo

2、ws应用程序），它是VisualBasicforApplications的英文缩写。将ActiveX控件插入到幻灯片中，然后用VBA编写程序控制这些ActiveX控件，从而达到需要的交互效果。具体制作过程如下：　　　　1创建测验题目内容　　　　1.1新建幻灯片文档　　新建1个空白幻灯片文档，设计模板采用Expedition效果，插入1个艺术标题——“单项选择题”。　　1.2创建题目文本框　　插入5个水平文本框，在1个文本框中输入单选题题目，在另外4个文本框中输入4个备选答案，将其对齐放在合适的位置。　　　　2创建选项按钮　　　　2.1插入选项按钮控件　　单击“控件工具箱”中的“选项按钮”

3、控件按钮，这时光标变成“十字”形状，在幻灯片工作区拖动鼠标创建1个选项按钮。　　2.2设置选项按钮控件属性　　保持选项按钮的选中状态，单击“控件工具箱”中的“属性”按钮，打开“属性”对话框，在这个对话框中可以设置选项按钮的各种属性。这里主要设置Caption、Font、Value这3个属性的值：Caption属性值确定选项按钮旁边的文字信息，这里设置为“A.”；Font属性值确定选项按钮旁边的文字格式，可以根据情况进行设置，使得整体的文字内容协调；Value属性值确定选项按钮是否是默认的选中状态，它有2个值，一个是True（默认处于选中状态），另一个是False（不是默认的选中状态），这

4、里将Value属性值设置为False。　　2.3复制单选按钮控件　　将上面创建的选项按钮再复制出来3个复本，然后分别将这3个副本选项按钮的Caption属性值更改为“B.”“C.”“D.”。接着将这4个选项按钮对齐放置在相应的4个备选答案文字左边合适的位置（如图1所示）。　　　　2.4定义单选按钮控件的名称　　为了便于下面的VBA编程，这里定义一下4个选项按钮对象的名称。选择第1个选项按钮，然后在“属性”对话框中的“（名称）”属性项后面的文本框中输入But1（如图2所示）。按照同样的方法，定义其他3个选项按钮对象的名称分别为But2、But3、But4。　　　　3编写VBA程序　　　　3

5、.1编写正确答案对应的选项按钮的VBA程序　　本实例的第1个备选答案是正确答案。双击这个备选答案前面的选项按钮，打开MircrosoftVisualBasic窗口，在代码编辑窗口中找到以下代码：　　PrivateSubBut1_Click()　　　　EndSub　　然后输入：　　IfBut1.Value=TrueThenex=MsgBox("选择正确！恭喜你！",vbOKOnly)　　代码输入完成后的结果如图3所示。　　　　3.2编写错误答案对应的选项按钮的VBA程序　　双击第2个备选答案前面的选项按钮，弹出MircrosoftVisualBasic窗口，在代码编辑窗口中找到以下代码：　

6、　PrivateSubBut2_Click()　　　　EndSub　　然后输入：　　IfBut2.Value=trueThenex=MsgBox("选择错误！请再想想！",vbOKOnly)　　剩下的2个备选答案按同样的方法进行设置，最终代码如图4所示。　　代码输入完成以后，关闭MircrosoftVisualBasic窗口，返回到幻灯片编辑窗口。　　　　4完善课件功能　　　　4.1添加控制按钮　　　　单击“控件工具箱”中的“按钮”控件按钮，这时光标变成“十字”形状，在幻灯片工作区拖动鼠标创建一个合适大小的按钮。　　保持按钮的选中状态，单击“控件工具箱”中的“属性”按钮，打开“属性”对话

7、框，将Caption属性值设置为“重新选择”（效果如图5所示）。　　　　4.2编写“重新选择”按钮的VBA程序　　双击“重新选择”按钮，在打开的代码编辑窗口中的“PrivateSubCommandButton1_Click()”和“EndSub”代码间输入：　　But1.Value=False　　But2.Value=False　　But3.Value=False　　But4.Value=False　　至此为止，该课件实例制作完成，