控件工具箱使用补充一、单选题制作(1)控件工具箱/“选项按钮”,拉出一个选项按钮，如右图所示。(2)右击“optionBtntonl”/“属性”对话框：“caption”——输入文字，如“A增大”；“ForceColor”——字体颜色；“Font”——字体的属性。(3)复制三个按钮，并改变三个不同选项文字。如右图所示。A．增大，B．减小，C．不变，D．不确定(4)画一个“命令按钮按钮（“确定”），如图左所示。(5)属性/“字体/“Font”改变字体、字号；在“外观”/“BackCo1or”设置底纹颜色，外观/“ForceColor"改变字体颜色，如图右所示。(6)双击“确定”按钮：“MicrosoftVisualBasic(VBA)”中修改代码：在PrivateSubCommandButton1Click()…EndSub中间粘贴如下代码：IfOptionButton2．Value=TrueThenMsgbox“恭喜你，答对了!”ElseMsgbox“对不起，答错了!”EndIf“OptionButton2”中的“2”表示第二个选项是正确，可以修改。如右图所示。(7)用文本框加入文字(题目)。以后制作选择题时复制即可。放映前，修改宏的安全级别(见多选题)。二、多选题制作例题：四个选项中，选1、3项正确。选中后，点击“确定”，出现“恭喜你答对了”；若只选择1或者3，则出现“对不起，没有选全”；若全选或者选择“1、2、3”、“1、3、4”、“2、3、4”等均为错误；点击“重选”，则重新开始。制作方法：(1)控件工具箱/“复选框”。画出一个选项按钮。如图右所示。(2)右击“CheckBox1”/“属性/“Caraption”中输入名称：删除默认值，重输新名称，如“A．加速上升”；“BackColor”：背景色，单击该属性框/下拉按钮中/“调色板”：选择颜色；在“ForceColor”：字体色；“Font"：字体属性。设置后的结果如右图所示。其他选项：“AutoSize”：有两个值：“True”（根据字的多少调整复选框的大小），“False"（复选框为固定大小）；“Height”和“Width”分别为复选框高度和宽度，直接输入数字。(3)将“A．加速上升”复制三个，修改文字，放置在适当的位置。如下图所示。(4)控件工具箱/“命令按钮”。画一个命令按钮框。如右图所示。(5)右击“命令按钮”文本框“CommandButton1”/“属性”设置文本框填充色、文字属性。“Caption”：改变命令按钮的文字为“确定”，如左图所示。(6)再双击“确定”按钮，“MicrosoftVisualBasic(VBA)”窗口中修改代码：在PrirateSubCommandButtonl_Click()…Endsub中间粘贴如下代码：IfCheckBox1．Value=TrueAndCheckBox2．Value=FalseAndCheekBox3．Value=TrueAndCheckBox4．Value=FalseThenMsgBox(“恭喜你答对了!”)ElselfCheckBox1．Value=TrueAndCheekBox3．Value=FalseAndCheckBox2．Value=FalseAndCheckBox4．Value=FalseThenMsgBox(“对不起，没有选全!”)ElselfCheckBox1．Value=FalseAndCheckBox3．Value=TrueAndCheckBox2．Value=FalseAndCheckBox4．Value=FalseThenMsgBox(“对不起，没有选全!”)ElseMsgBox(“对不起，答错了!”)EndIf如图右所示。(7)复制一个“确定”按钮，文字改为“重选”，再双击“重选”按钮，修改代码：在PrivateSubCc)mmandButton2_click()…EndSub中间粘贴如下代码：CheckBox1．Value=FalseCheckBox2．Value=FalseCheckBox3．Value=FalseCheckBox4．Value=False如右图所示。(8)用文本框加入文字内容，如下图所示。(9)放映时，点击A和C两个选项，出现“恭喜你，答对了”，选择;A或者C，则得到“对不起，没有选全”。其他都是“对不起，答错了”。应用控件工具时，由于使用了VBA程序，而PowerPoint默认禁用“宏”，故播放时如不出现效果，要将“宏”的级别改为“中”或“低”：点击“工具”/“宏”/“安全性”/“安全级”选项卡中，安全级别选择“中