用PowerPoint中的VBA实现课件中的智能交互.doc

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

1、用PowerPoint中的VBA实现课件中的智能交互作者：张宝红  来源：中国电脑教育报  加入时间：2003-8-25　黄金软件网　　PowerPoint中的VBA可以实现很多复杂的交互，但很多老师面对VBA编程，都会觉得无从下手。所以本期我们为大家安排了一个关于PowerPoint中VBA的小专题，以后在课件中实现交互就不会那么费劲了。　　VBA基础　　说到VBA编程，就不得不提到控件工具箱，我们需要利用其中的控件搭建需要的环境。　　1．显示控件工具箱　　在PowerPoint中选择菜单“视图/工具栏/控件工具箱”。　　

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

3、菜单命令“工具/宏/Visualbasic编辑器”即可进入VBA编程状态。　　5．14控件的主要属性及设置方法　　进入VBA后，需要在“属性”窗口中对控件的属性进行设置。如果没有出现“属性”窗口，按F4键即可调出该窗口。下面我们就不同的控件，来说明常用属性的设置方法。　　（1）复选框　　AutoSize：有两个值，True表示根据字的多少调整复选框的大小，False表示复选框为固定大小；BackColor：设置复选框的背景颜色，单击该属性框出现下拉按钮，选择“调色板”选项卡后选择颜色；Caption：控件的名称，把默认值删除

4、再重新输入新名称；Font：设置字体、字号及字形，单击该属性框出现按钮，单击该按钮出现字体对话框，再在对话框中设置；Forecolor：设置字的颜色，设置方法同BackColor；Height：复选框的高度，直接输入数字即可；Width：复选框的宽度，直接输入数字即可；Value：复选框的值，True为选中，False则相反。　　（2）文本框　　AutoSize、BackColor、Font、ForeColor、Height、Width等属性的设置方法同复选框；Value：文本框的值，用来保存输入的文本；TextAlign：

5、设置文本对齐方式。　　（3）单选框　　属性设置同复选框。　　（4）标签　　除Value外，其他同复选框。　　（5）命令按钮　　同标签。　　6．消息框MsgBox的功能　　我们常用消息框显示一些交互的信息，如图2所示的消息框用下面的语句可实现：　　Msgbox("这是一个例题",VbYesNo,"示例")　　多选题的制作　　1.题目的设计同单选题　　2.选项：用复选框（CheckBox)，其他设置同单选题。　　3.[查看答案]命令按钮：因为是多选题，答案有多个，所以要书写多个条件，条件之间用and连接，表示同时满足这几个条

6、件，例如第一、三、五的选项是正确的，则需要输入如下语句：　　IfCheckBox1.Value=TrueAndCheckBox3.Value=TrueAndCheckBox5.Value=True14Then　　给出正确的提示信息同单选题　　else　　给出错误的提示信息同单选题　　endif　　填空题的制作　　1.题目的设置同单选题，填空的地方用文本框。　　2.判断正误：因为是填空题，所填答案是文本，所以条件书写为：　　ifTextBox1.value="正确的文本"then给出正确的提示信息同单选题　　else　　给出错

7、误的提示信息同单选题　　endif　　注意：正确的文本一定要用半角双引号括起来，如几个空一起判断，方法同多选题。　　3.[重新填空]命令按钮：需要完成如下语句的设置：　　PrivateSubCommandButton2_Click()　　TextBox1.Value="请双击后填入你的答案！"　　EndSub　　PrivateSubTextBox1_DblClick(ByValCancelAsMSForms.ReturnBoolean)　　TextBox1.Value=""　　EndSub　　单选题的制作　　例如我们要设计如

8、图1所示的选择题。　　1．题目　　可用文本框，也可用标签。如果用文本框，直接输入文本即可。如果用标签，插入后双击该标签启动VBA，修改Caption属性为“5X-15=0的解是：”，再根据需要修改其他属性（如颜色等）。　　2．选项　　插入一单选框，修改其Caption属性为“0”，其他属性