关于PPT中控件工具箱.ppt

PowerPoint 2003 控件工具箱和VBA代码 2009.7 如何打开“控件工具箱” 单选框 复选框 命令按钮 文本框 单选框属性 “Caption”输入我们所需要的内容，就可以做出适合我们的单选项了。 “BackStyle”在右侧的下拉列表中选择“0-fmBackStyleTransparent”，可以使做出的单选项背景透明。 “Font”输入框，可以设置字体、字号等格式。 “Forecolor”输入框，则可以设置颜色。 单/多项选择题 是非判断题 文本框 5、郑和下西洋最远到达哪些地方？ 2、郑和七次下西洋必经的第一个海峡是什么海峡？ 3.如果你是郑和，要从南海进入印度洋必定经过哪个海峡？ 6、郑和下西洋对明朝乃至中国历史做出了哪些贡献？ 4、地图上的天方在今天的哪个国家？ 1、郑和下西洋的起点在哪？起、止时间？ 根据刚才的路线演示，分男女生抢答问题。 沙特阿拉伯 刘家港 1405——1433 台湾海峡 马六甲海峡 沙特阿拉伯 红海一带和非洲东海岸 每题10分，抢答错误扣掉相应分值！ 加强了中国与各国的友好和经济交流，推动了华侨移居南洋，促进南洋的开发 郑和 （马三宝） 1371—1433 明成祖朱棣（dì ） 1360～1424 多行文本框 EnterKeyBehavior属性：设为True时允许使用回车键换行。　　 MultiLine属性：设为True时允许输入多行文字 ScrollBars属性：利用滚动条来显示多行文字内容， 其中1-fmScrollBarsHorzontal为水平滚动条； 2-fmScrollBarsVertical为垂直滚动条； 3-fmScrollBarsBoth为水平滚动条与垂直滚动条均存在。 当文字不超出文字框时，滚动条设置无效，当文字超出文字框时，则出现一个可拖动的滚动条。　　 BackColor用来设置文字框的背景颜色。 Font用来设置字体。 SSC精英团队的宗旨（按顺序） 填空题 If TextBox1.Value = 服务 Then MsgBox 不错，你填对了!, vbOKOnly, 填空题 Else MsgBox 不对吧?再想想!, vbOKOnly, 填空题 TextBox1.Text = 为人类提供了经济、便利的书写材料，有利于文化的普及和传播; 加快了文化的传播，改变了只有“上等人”才能读书的状况; 为环球航行和发现美洲创造了必要的条件，促进了世界贸易的发展。 改变了作战方式，帮助资产阶级摧毁封建堡垒，加速了欧洲乃至全世界近代化的进程; 以下是关于四大发明贡献的论述，请你把对应的发明填入空格内！ 命令按钮 VBA法 1、在相应的演示文稿中，用文本框输入填空题的题目内容 2、再单击工具条上的“命令按钮”按钮，然后在幻灯片合适位置上拖拉出一个按钮来 3、双击插入的命令按钮，进入VBA编辑窗口，在“Private Sub CommandButton1_Click()”和“End Sub”语句之间，输入下述代码： If TextBox1.Text = “历史 Then　　　　hd = MsgBox(你填对了, vbOKCancel, 结果)　　Else　　　　hd = MsgBox(你填错了, vbOKCancel, 结果)　　End If serve 是分享 Share是服务 create 是开拓 是非判断题 单 选 代码的第一句是设置提示框及提示信息的。 而第二句代码则是在单击B选项后使其它各选项恢复到未选中状态。“OptionButton*”(*为1、2、3、4)分别表示我们制作出的四个单选项。它是以单选项制作顺序排列的。在“属性”对话框的“名称”处可以查到它。 　在“Private Sub CommandButton1_Click()”和“End Sub”语句之间 MsgBox (恭喜您，答对了!) 　　OptionButton2.Value = False And OptionButton3.Value = False And OptionButton4.Value = False 多 选 * * （播放音频，随着历史剧对话的播放，控制文本框） 竞赛的规则是这样的，男女生抢答竞赛，每题10分，抢答错误扣掉相应分值，抢答时，以起立作答为准，不用举手示意！ 落后的一方不要气馁，我们还有机会追赶他们！ * *