用vba实现课件中的智能交互

《用vba实现课件中的智能交互》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、用VBA实现课件中的智能交互Powerpoint中的VBA口J以实现很多复杂的交互，但很多老师面对VBA编程，都会觉得无从下手。所以本期我们为大家安排了一个关于PowerPoint中VBA的小专题，以后在课件中实现交互就不会那么费劲了。VBA基础说到VBA编程，就不得不提到控件工具箱，我们需要利用其屮的控件搭建需要的环境。1.显示控件工具箱在PowerPoint中选择菜单“视图/工具栏/控件工具箱”。2.控件工具箱(如图1)中常用按钮的介绍▼控件工具箱(1)复选框(CheckBox)：可以选择多个选项，常用来设计多选题；(2)文本框(TextBox):可以输入文本

2、，常用來设计填空题；(3)命令按钮(CommandButton):用来确定选择或输入，也可设计超级链接；(4)单选框(OptionButton):只能选中一个选项，常用来设计单选题或判断题；(5)标签(Label):用来显小文字信息。3.插入控件的方法单击控件工具箱上的工具按钮，然后在幻灯片中拖动到适当大小即可。4.进入VBA的方法双击幻灯片屮的控件或用菜单命令“工具/宏/Visualbasic编辑器”即可进入VBA编程状态。5.控件的主要屈性及设置方法进入VBA后，需要在“属性，嘀口屮对控件的属性进行设置。如果没有出现“属性”窗口，按F4键即可调岀该窗口。下面我

3、们就不同的控件，來说明常用属性的设置方法。(1)复选框AutoSize：有两个值,True表示根据字的多少调整复选框的大小，False表示复选框为固定大小；BackColor：设置复选框的背景颜色，单击该属性框岀现下拉按钮，选择“调色板”选项卡后选择颜色；Caption：控件的名称，把默认值删除再重新输入新名称；Font：设置字体、字号及字形，单击该屈性框出现按钮，单击该按钮出现字体对话框，再在对话框屮设置；Forecolor：设置字的颜色，设置方法同BackColor；Height：复选框的高度，直接输入数字即可；Width：复选框的宽度，直接输入数字即可；Va

4、lue：复选框的值，True为选中，False则相反(1)文本框AutoSize>BackColor>Font>ForeColor>Height>Width等属性的设置方法同复选框；Value：文本框的値，用来保存输入的文本；TextAlign：设置文本对齐方式。(2)单选框屈性设置同复选框。(3)标签除Value外,其他同复选框。(4)命令按钮同标签。1.消息框MsgBox()的功能•我们常用消息框显示一些交互的信息，如图2所示的消息框用下面的语句可实现：Msgbox(”这是一个例题”,VbYesNo,”示例“)多选题的制作1.题目的设计同单选题2.选项：用复选

5、框(CheckBox),其他设置同单选题。3.［查看答案］命令按钮：因为是多选题，答案冇多个，所以要书写多个条件，条件之间用and连接，表示同时满足这几个条件，例如第一、三、五的选项是正确的，则需耍输入如下语句：IfCheckBox1.Value=TrueAndCheckBox3.Value=TrueAndCheckBox5.Value=TrueThen给出正确的提示信息同单选题else给岀错误的提示信息同单选题endif填空题的制作1.题口的设置同单选题，填空的地方用文木框。2.判断止误：因为是填空题，所填答案是文木，所以条件书写为：ifTextBox1.val

6、ue="TE确的文本”then给出正确的提示信息同单选题else给出错误的提示信息同单选题endif注意：正确的文木一定耍用半角双引号括起来，如几个空一起判断,方法同多选题3•［重新填空］命令按钮：需要完成如下语句的设置：PrivateSubCommandButton2_Click()TextBox1.Value=”请双击后填入你的答案！”EndSubPrivateSubTextBoxl_DblClick(ByValCancelAsMSForms.RetumBoolean)TextBoxl.Value=n”EndSub单选题的制作例如我们要设计如图1所示的选择题。

7、1・题目可用文本框，也可用标签。如果用文本框，直接输入文本即可。如果用标签，插入后双击该标签启动VBA,修改Caption属性为“5X・15=0的解是：”，再根据需要修改其他属性(如颜色等)。2・选项插入一单选框，修改其Caption®性为“(T,其他屈性可口行修改。其他的单选项可复制制作好的单选框，然后再修改它们的Caption属性。1.查看答案命令按钮在此使用命令按钮，我们可根据单选框的Value属性的值来判断答案，如止确选项(单选框)的Value的值为True,则为该题选择止确，否则为选择错谋，我们还可根据选择正谋來给出信息，有两种方法。(1)方法一用Msg

8、Box()