控件工具箱使用补充教材

1、控件工具箱使用补充一、单选题制作(1控件工具箱/“选项按钮”,拉出一个选项按钮，如右图所示。(2右击“optionBtntonl”/“属性”对话框：“caption”输入文字，如“A增大”；“ForceColor”字体颜色；“Font”字体的属性。(3复制三个按钮，并改变三个不同选项文字。如右图所示。A增大 ，B减小， C不变 ，D不确定(4画一个“命令按钮按钮（“确定”），如图左所示。 (5属性/“字体/“Font”改变字体、字号；在“外观”/“BackCo1or”设置底纹颜色，外观/“ForceColor"改变字体颜色，如图右所示。(6双击“确定”按钮：“Microsoft Vi

2、sual Basic(VBA”中修改代码：在Private SubCommandButton1Click(End Sub中间粘贴如下代码：If OptionButton2Value=True ThenMsgbox“恭喜你，答对了!”ElseMsgbox“对不起，答错了!”End If“OptionButton2”中的“2”表示第二个选项是正确，可以修改。如右图所示。(7用文本框加入文字(题目。以后制作选择题时复制即可。放映前，修改宏的安全级别(见多选题。二、多选题制作例题：四个选项中，选1、3项正确。选中后，点击“确定”，出现“恭喜你答对了”；若只选择1或者3，则出现“对不起，没有选全”；若全

3、选或者选择“1、2、3”、“1、3、4”、“2、3、4”等均为错误；点击“重选”，则重新开始。制作方法：(1控件工具箱/“复选框”。画出一个选项按钮。如图右所示。(2右击“CheckBox1”/“属性/“Caraption”中输入名称：删除默认值，重输新名称，如“A加速上升”；“BackColor”：背景色，单击该属性框/下拉按钮中/“调色板”：选择颜色；在“ForceColor”：字体色； “Font"：字体属性。设置后的结果如右图所示。其他选项：“AutoSize”：有两个值：“True”（根据字的多少调整复选框的大小），“False"（复选框为固定大小）；“Heigh

4、t”和“Width”分别为复选框高度和宽度，直接输入数字。 (3将“A加速上升”复制三个，修改文字，放置在适当的位置。如下图所示。(4控件工具箱/“命令按钮”。画一个命令按钮框。如右图所示。(5右击“命令按钮”文本框“CommandButton1”/“属性”设置文本框填充色、文字属性。“Caption”：改变命令按钮的文字为“确定”，如左图所示。(6再双击“确定”按钮，“Microsoft Visual Basic(VBA”窗口中修改代码：在Prirate SubCommandButtonl_Click(End sub中间粘贴如下代码：If CheckBox1Value=True And Ch

5、eckBox2Value=False And CheekBox3Value=True AndCheckBox4Value=False ThenMsgBox(“恭喜你答对了!”Elself CheckBox1Value=True And CheekBox3Value=False And CheckBox2Value=FalseAnd CheckBox4Value=False ThenMsgBox(“对不起，没有选全!”Elself CheckBox1Value=False And CheckBox3Value=True And CheckBox2Value=FalseAnd CheckBox4V

6、alue=False ThenMsgBox(“对不起，没有选全!”ElseMsgBox(“对不起，答错了!”End If如图右所示。(7复制一个“确定”按钮，文字改为“重选”，再双击“重选”按钮，修改代码：在Private Sub CcmmandButton2_click(End Sub中间粘贴如下代码： CheckBox1Value=FalseCheckBox2Value=FalseCheckBox3Value=False CheckBox4Value=False如右图所示。(8用文本框加入文字内容，如下图所示。(9放映时，点击A和C两个选项，出现 “恭喜你，答对了”，选择;A或者C，则得到

7、“对不起，没有选全”。其他都是“对不起，答错了”。应用控件工具时，由于使用了VBA程序，而PowerPoint默认禁用“宏”，故播放时如不出现效果，要将“宏”的级别改为“中”或“低”：点击“工具”/“宏”/“安全性”/“安全级”选项卡中，安全级别选择“中”或“低”。（在打开文档时，出现“安全警告”命令框，点击“启用宏”）(10再次使用时复制、更改即可。三、填空题制作利用控件工具箱的“文本框”按钮制作填空题。例如：求5×8的积：(1调出控件工具箱，在下划线处画出一个文本框，右击调出“属性”对话框：“ForeColor"设为&H000000FF&(红，答案用红色。“Font”设为“楷体一GB2312”；若需要较大字体，可以输入表示字号的任意数值。如右图。(2插