PowerPoint应用和技巧

1、课件制作课件制作现代教育技术现代教育技术现代教育技术现代教育技术现代教育技术现代教育技术以制作带滚动条的文本框为例，介绍以制作带滚动条的文本框为例，介绍“控件工具控件工具箱箱”在在PowerPointPowerPoint制作幻灯片中的应用。制作幻灯片中的应用。1 1打开控件工具箱打开控件工具箱新建一个幻灯片，选择所需版面。点击新建一个幻灯片，选择所需版面。点击“视图工视图工具栏具栏”-“-“控件工具箱控件工具箱”，或在任意工具栏或菜，或在任意工具栏或菜单栏上击鼠标右键，选择单栏上击鼠标右键，选择“控件工具箱控件工具箱”，打开，打开“控件箱工具箱控件箱工具箱”。现代教育技术现代教育技术 飞天 歌

2、手:含笑 作词：席时俊 作曲：万军 如果苍海枯了 还有一滴泪 那也是为你空等的 一千个轮回 蓦然回首中 斩不断的牵牵绊绊 你所有的骄傲 只能在画里飞 大漠的落日下 那吹箫的人是谁 现代教育技术现代教育技术文本框编辑区文本框编辑区2 2画出文本框画出文本框选择选择“控件工具箱控件工具箱”-“-“文本框文本框”选项，在编辑选项，在编辑区按住鼠标左键拖拉出一个文本框，调整位置及区按住鼠标左键拖拉出一个文本框，调整位置及大小。大小。现代教育技术现代教育技术3 3设置文本框属性设置文本框属性在在“文本框文本框”上右击鼠标，选择上右击鼠标，选择“属性属性”，弹，弹出出“文本框文本框”属性窗口。要实现滚动条

3、对文本属性窗口。要实现滚动条对文本的控制，需要对文本框的一些属性进行设置。的控制，需要对文本框的一些属性进行设置。必须设置必须设置EnterKeyBehaviorEnterKeyBehavior属性为属性为TrueTrue，MultMultiLineiLine属性为属性为TrueTrue，并按需设置，并按需设置ScrollBarsScrollBars属属性。其他属性可根据个人需要进行设置。性。其他属性可根据个人需要进行设置。现代教育技术现代教育技术文文本本框框属属性性窗窗口口现代教育技术现代教育技术EnterKeyBehaviorEnterKeyBehavior设为设为TrueTrue时允许使

4、用回车键时允许使用回车键换行。换行。MultiLineMultiLine设为设为TrueTrue时允许输入多行文字。时允许输入多行文字。ScrollBarsScrollBars是利用滚动条来显示多行文字内容，是利用滚动条来显示多行文字内容，其中其中1-fmScrollBarsHorzontal1-fmScrollBarsHorzontal为水平滚动条；为水平滚动条；2-fmScrollBarsVertical2-fmScrollBarsVertical为垂直滚动条；为垂直滚动条；3-fmS3-fmScrollBarsBothcrollBarsBoth为水平滚动条与垂直滚动条均存为水平滚动条与垂

5、直滚动条均存在。当文字不超出文本框时，滚动条设置无效，在。当文字不超出文本框时，滚动条设置无效，当文字超出文本框时，则出现可拖动的滚动条。当文字超出文本框时，则出现可拖动的滚动条。现代教育技术现代教育技术4 4输入文本内容输入文本内容右击文本框，在右右击文本框，在右键快捷菜单中选择键快捷菜单中选择“文本框对象文本框对象”-“编辑编辑”选项，即选项，即可进行文本内容的可进行文本内容的输入，或按输入，或按“CtrlCtrl+V”+V”把剪贴板上的把剪贴板上的文字拷贝到文本框文字拷贝到文本框中。中。现代教育技术现代教育技术5 5带滚动条的文本框编辑完成带滚动条的文本框编辑完成文本编辑完之后，在文本框

6、外任意处单击左键退文本编辑完之后，在文本框外任意处单击左键退出编辑状态就完成了。出编辑状态就完成了。带滚动带滚动条的文条的文本框本框 现代教育技术现代教育技术FlashFlash动画插入动画插入PowerPointPowerPoint中，通常有四种方法。中，通常有四种方法。（一）使用（一）使用“Shockwave Flash Object”Shockwave Flash Object”控件法控件法1 1打开打开“Shockwave Flash Object”Shockwave Flash Object”控件控件切换到要插入切换到要插入FlashFlash动画的幻灯片，打开动画的幻灯片，打开“控

7、件控件工具箱工具箱”-“-“其他控件其他控件”，弹出，弹出ActiveXActiveX控件窗控件窗口，窗口中列出了系统已经安装的所有口，窗口中列出了系统已经安装的所有ActiveXActiveX控件，在控件列表中找到控件，在控件列表中找到“Shockwave Flash Shockwave Flash Object”Object”。现代教育技术现代教育技术“Shockwave Flash Object” “Shockwave Flash Object” 控件控件 现代教育技术现代教育技术单击单击“Shockwave Flash Shockwave Flash Object”Object”，此时

8、系统会自，此时系统会自动关闭控件窗口。动关闭控件窗口。 将光标移动到将光标移动到PowerPoinPowerPoint t的编辑区域中，光标变的编辑区域中，光标变成成“十十”字形，按下鼠标字形，按下鼠标并拖动，画出适当大小的并拖动，画出适当大小的矩形框，这个矩形区域就矩形框，这个矩形区域就是播放动画的区域。是播放动画的区域。FlashFlash动画的播放窗口动画的播放窗口 2 2画出画出FlashFlash动画的播放区域动画的播放区域现代教育技术现代教育技术3 3FlashFlash动画的属性设置动画的属性设置右击矩形框，在出现的快捷菜单中单击右击矩形框，在出现的快捷菜单中单击“属性属性”，出

9、现出现“属性属性”窗口。在窗口。在“movie”movie”选项中，输入选项中，输入FlFlashash动画的完整路径。或单击动画的完整路径。或单击“属性属性”窗口中的窗口中的“自定义自定义”一栏，此栏右端出现一个按钮，单击一栏，此栏右端出现一个按钮，单击该按钮，出现该按钮，出现“属性页属性页”窗口，在窗口，在“影片影片URLM”URLM”右侧文本框中输入右侧文本框中输入FlashFlash动画的完整路径，别的项动画的完整路径，别的项目采用系统默认的即可。最后按目采用系统默认的即可。最后按“确定确定”返回返回PowPowerPointerPoint。现代教育技术现代教育技术FlashFlash

10、动画属性窗口动画属性窗口FlashFlash动画与动画与PowerPointPowerPoint文件处于同一目录中，也文件处于同一目录中，也可只输入可只输入FlashFlash文件名，但必须文件名，但必须带后缀名带后缀名“.swf.swf”现代教育技术现代教育技术FlashFlash动画动画“属性页属性页”窗口窗口现代教育技术现代教育技术4 4FlashFlash动画播放设置动画播放设置放映该幻灯片，放映该幻灯片，FlashFlash动画的画面就出现了。设动画的画面就出现了。设定的矩形框的大小就是放映时动画窗口的大小。定的矩形框的大小就是放映时动画窗口的大小。通过拖动矩形框的句柄可随意改变动画

11、窗口的通过拖动矩形框的句柄可随意改变动画窗口的大小。大小。FlashFlash动画播放时，鼠标处在动画播放时，鼠标处在FlashFlash播放窗口，播放窗口，响应响应FlashFlash的鼠标事件；处在的鼠标事件；处在FlashFlash播放窗口外，播放窗口外，响应响应PowerPointPowerPoint的鼠标事件。的鼠标事件。现代教育技术现代教育技术（二）插入对象法（二）插入对象法1 1插入插入FlashFlash动画动画切换到要插入切换到要插入FlashFlash动画的幻灯片，单击动画的幻灯片，单击“插入插入”-“-“对象对象”选项，弹出选项，弹出“插入对象插入对象”对话框，选对话框，

12、选择择“由文件创建由文件创建”，在出现的文本框中，通过单，在出现的文本框中，通过单击击“浏览浏览”或直接输入或直接输入FlashFlash动画的完整路径，动画的完整路径，最后单击最后单击“确定确定”返回返回PowerPointPowerPoint。现代教育技术现代教育技术“ “插入对象插入对象”控件对话框控件对话框2 2FlashFlash动画图标调整动画图标调整在幻灯片上出现了一个在幻灯片上出现了一个FlashFlash动画的图标，调整图动画的图标，调整图标的大小和位置。可以根据需要随意改变。标的大小和位置。可以根据需要随意改变。现代教育技术现代教育技术3 3FlashFlash动画动作设置

13、动画动作设置右击该图标，在弹出的快捷菜单中单击右击该图标，在弹出的快捷菜单中单击“动作设动作设置置”，出现，出现“动作设置动作设置”对话框。对话框。“激活对象激活对象”的方式可以是的方式可以是“单击鼠标单击鼠标”也可以是也可以是“鼠标移鼠标移动动”，本例采用，本例采用“单击鼠标单击鼠标”。再选中。再选中“单击鼠单击鼠标标”标签中的标签中的“对象动作对象动作”-“-“激活内容激活内容”，最，最后单击后单击“确定确定”返回返回PowerPointPowerPoint。如图。如图10-2710-27所示。所示。现代教育技术现代教育技术“ “动作设置动作设置”对话框对话框4 4FlashFlash动画

14、放映动画放映放映该幻灯片，当放映该幻灯片，当鼠标单击鼠标单击FlashFlash动动画图标时，出现一画图标时，出现一个询问框，单击个询问框，单击“是是”，系统便会，系统便会调用调用FlashFlash播放程播放程序来播放动画。序来播放动画。现代教育技术现代教育技术（三）超级链接法（三）超级链接法1 1建立链接对象建立链接对象切换到要插入切换到要插入FlashFlash动画的幻灯片，在其中建立动画的幻灯片，在其中建立任意一个对象（如一段文字、一张图片等）。任意一个对象（如一段文字、一张图片等）。2 2打开打开“插入超级链接插入超级链接”对话框对话框选中这个对象，单击选中这个对象，单击“插入插入”

15、菜单，在弹出的菜单，在弹出的下拉菜单中单击下拉菜单中单击“超级链接超级链接”，或右击对象，或右击对象，从弹出的快捷菜单中单击从弹出的快捷菜单中单击“超级链接超级链接”，此时，此时会弹出会弹出“插入超级链接插入超级链接”对话框，系统默认链对话框，系统默认链接到的对象是对话框左侧上部的接到的对象是对话框左侧上部的“原有文件或原有文件或W Webeb页页”。现代教育技术现代教育技术设置设置FlashFlash动画的路径动画的路径现代教育技术现代教育技术（四）动作设置法（四）动作设置法在需要设置链接的对象上右单击，在弹出的快捷在需要设置链接的对象上右单击，在弹出的快捷菜单中单击菜单中单击“动作设置动作

16、设置”，出现，出现“动作设置动作设置”对对话框，选择激活对象的方式话框，选择激活对象的方式“单击鼠标单击鼠标”或或“鼠鼠标移动标移动”，再选中，再选中“超级链接到超级链接到”单选按钮，单单选按钮，单击右侧朝下的小黑箭头，在弹出的下拉列表中，击右侧朝下的小黑箭头，在弹出的下拉列表中，单击最下端的单击最下端的“其他文件其他文件”，出现，出现“超级链接到超级链接到其他文件其他文件”对话框，设置好对话框，设置好FlashFlash动画的路径，动画的路径，单击单击“确定确定”返回返回PowerPointPowerPoint即可。即可。现代教育技术现代教育技术如果课件要求智能反馈，如填空题、选择题如果课件

17、要求智能反馈，如填空题、选择题或判断题等，可利用控件搭建环境，利用或判断题等，可利用控件搭建环境，利用VBAVBA编程，来实现复杂的智能交互。编程，来实现复杂的智能交互。现代教育技术现代教育技术（一）常用控件的属性设置（一）常用控件的属性设置1 1复选框（复选框（CheckBoxCheckBox）可以选择多个选项，常用来设计多选题；其属可以选择多个选项，常用来设计多选题；其属性设置：性设置：AutoSizeAutoSize有两个值，有两个值，TrueTrue表示根据字的多少调表示根据字的多少调整复选框大小，整复选框大小，FalseFalse表示复选框为固定大小表示复选框为固定大小BackCol

18、orBackColor：设置复选框的背景颜色，单击该：设置复选框的背景颜色，单击该属性框出现下拉按钮，选择属性框出现下拉按钮，选择“调色板调色板”选项卡选项卡后选择颜色；后选择颜色；现代教育技术现代教育技术CaptionCaption：控件的名称，把默认值删除后，再：控件的名称，把默认值删除后，再重新输入新名称；重新输入新名称；FontFont：设置字体、字号及字形，单击该属性框：设置字体、字号及字形，单击该属性框出现按钮，单击该按钮出现字体对话框，再在出现按钮，单击该按钮出现字体对话框，再在对话框中对字体格式设置；对话框中对字体格式设置；ForeColorForeColor：设置字的颜色，设

19、置方法同：设置字的颜色，设置方法同 BackColorBackColor；HeightHeight：复选框的高度，直接输入数字即可；：复选框的高度，直接输入数字即可；WidthWidth：复选框的宽度，直接输入数字即可；：复选框的宽度，直接输入数字即可；ValueValue：复选框的值，：复选框的值，TrueTrue为选中，相反为选中，相反FalseFalse则为未选中。则为未选中。现代教育技术现代教育技术2 2文本框（文本框（TextBoxTextBox）可以输入文本，常用来设计填空题；其可以输入文本，常用来设计填空题；其AutoSizeAutoSize、BackColorBackColor

20、、FontFont、ForeColorForeColor、HeightHeight、WidthWidth等等属性的设置方法同复选框；属性的设置方法同复选框；ValueValue：文本框的值，用来保存输入的文本；：文本框的值，用来保存输入的文本；TextAlignTextAlign：设置文本对齐方式。：设置文本对齐方式。3 3命令按钮（命令按钮（CommandButtonCommandButton）用来确定选择或输入，也可设计超级链接等；属性用来确定选择或输入，也可设计超级链接等；属性设置同复选框。设置同复选框。现代教育技术现代教育技术4 4单选框（单选框（OptionButtonOptionB

21、utton）只能选中一个选项，常用来设计单选题或判断只能选中一个选项，常用来设计单选题或判断题；除题；除ValueValue外，其他同复选框。外，其他同复选框。5 5标签（标签（LabelLabel）用来显示文字信息。除用来显示文字信息。除ValueValue外，其它同复选外，其它同复选框框 现代教育技术现代教育技术6 6消息框（消息框（MsgBoxMsgBox）常用消息框显示一些交互的信息，如图所示的消常用消息框显示一些交互的信息，如图所示的消息框用下面的语句可实现：息框用下面的语句可实现： MsgBoxMsgBox(“(“这是一个例题这是一个例题”,vbYesNo,vbYesNo,”,”示

22、例示例”) )用消息框显示交互信息用消息框显示交互信息现代教育技术现代教育技术双击幻灯片中的控件，或用菜单双击幻灯片中的控件，或用菜单 “ “工具工具”-“宏宏”-“Visual basic-“Visual basic编辑器编辑器”命令，即可命令，即可进入进入VBAVBA编程状态。进入编程状态。进入VBAVBA后，需要在后，需要在“属性属性”窗口中对控件的属性进行设置。如果没有出现窗口中对控件的属性进行设置。如果没有出现“属性属性”窗口，按窗口，按F4F4键即可调出该窗口。键即可调出该窗口。现代教育技术现代教育技术二、制作智能交互型的课件二、制作智能交互型的课件以制作单选题、选择题、判断题和填

23、空题为例以制作单选题、选择题、判断题和填空题为例来介绍智能的课件的制作方法。来介绍智能的课件的制作方法。现代教育技术现代教育技术（一）单选题的制作（一）单选题的制作1 1题目题目题目的输入可用文本框，题目的输入可用文本框，也可用标签。也可用标签。如果用文本框，直接输入如果用文本框，直接输入文本即可。如果用标签文本即可。如果用标签, ,插入后双击该标签启动插入后双击该标签启动VBVBA A，修改，修改CaptionCaption属性为属性为“5X-15=05X-15=0的解是：的解是：”，再根据需要修改其他属性。再根据需要修改其他属性。单选题的运行界面单选题的运行界面现代教育技术现代教育技术2

24、2答案选项答案选项插入一个单选框（第一个单选框），修改其插入一个单选框（第一个单选框），修改其CaptionCaption属性为属性为“A 3”A 3”，其他属性可自行，其他属性可自行修改。其他的单选项可复制制作好的单选框，修改。其他的单选项可复制制作好的单选框，然后再分别修改它们的然后再分别修改它们的CaptionCaption属性为属性为“B B 5”5”、“C 11”C 11”和和“D 18”D 18”。现代教育技术现代教育技术3 3“查看答案查看答案”命令按钮命令按钮在此插入一个命令按钮（第一个命令按钮），在此插入一个命令按钮（第一个命令按钮），我们可根据单选框的我们可根据单选框的Va

25、lueValue属性的值来判断答属性的值来判断答案，如正确选项（单选框）的案，如正确选项（单选框）的ValueValue的值为的值为TrTrueue，则为该题选择正确，否则为选择错误，则为该题选择正确，否则为选择错误，另外还可根据选择正误来给出提示信息。另外还可根据选择正误来给出提示信息。现代教育技术现代教育技术用用MsgBoxMsgBox()()，如果选择正确，显示信息，如果选择正确，显示信息“Very Very GoodGood！请继续！请继续！”，选择错误则显示，选择错误则显示“SorrySorry，你选错了！正确答案是你选错了！正确答案是3 3，请继续努力。，请继续努力。”具具体操作步

26、骤：双击单选框进入体操作步骤：双击单选框进入VBAVBA编辑窗口，编辑窗口，在编辑窗口中完成以下操作。在编辑窗口中完成以下操作。现代教育技术现代教育技术1 1）在编辑窗口中找到如下两条语句：）在编辑窗口中找到如下两条语句：Private Private Sub OptionButton1_Click()Sub OptionButton1_Click()和和End SubEnd Sub语句。语句。然后在上面这两条语句中间插入以下语句：然后在上面这两条语句中间插入以下语句：If OptionButton1.Value=True Then If OptionButton1.Value=True Th

27、en ex=MsgBox(“Veryex=MsgBox(“Very Good Good！请继续努力。！请继续努力。”, , vbOKOnlyvbOKOnly) )现代教育技术现代教育技术方法方法1 1的代码编辑窗口的代码编辑窗口现代教育技术现代教育技术2 2）同理，找到如下三组语句：）同理，找到如下三组语句：第一组语句：第一组语句：Private Sub OptionButton2Private Sub OptionButton2_Click()_Click()和和End SubEnd Sub；第二组语句：第二组语句：Private Sub OptionButton3Private Sub O

28、ptionButton3_Click()_Click()和和End SubEnd Sub；第三组语句：第三组语句：Private Sub OptionButton4Private Sub OptionButton4_Click()_Click()和和End SubEnd Sub。现代教育技术现代教育技术在这三组的两条语句中间分别插入语句：在这三组的两条语句中间分别插入语句：If OptionButton2.Value=True Then ex=MsgBoxIf OptionButton2.Value=True Then ex=MsgBox(“(“正确答案是正确答案是3 3，请继续努力。，请继续

29、努力。”, vbOKOnly, vbOKOnly) )If OptionButton3.Value=True Then ex=MsgBoxIf OptionButton3.Value=True Then ex=MsgBox(“(“正确答案是正确答案是3 3，请继续努力。，请继续努力。”, vbOKOnly, vbOKOnly) )If OptionButton4.Value=True Then ex=MsgBoxIf OptionButton4.Value=True Then ex=MsgBox(“(“正确答案是正确答案是3 3，请继续努力。，请继续努力。”, vbOKOnly, vbOKOn

30、ly) )说明：说明：exex为自定义变量为自定义变量在所有代码的前使用在所有代码的前使用dim exdim ex定义变量定义变量exex现代教育技术现代教育技术4 4“重新选择重新选择”命令按钮命令按钮在幻灯片适当的地方插入一个命令按钮，修改其在幻灯片适当的地方插入一个命令按钮，修改其CaptionCaption属性为属性为“重新选择重新选择”，在编辑窗口中的，在编辑窗口中的 Private Sub CommandButton2_Click()Private Sub CommandButton2_Click() 和和End SubEnd Sub语句间插入：语句间插入： OptionButto

31、n1.Value = FalseOptionButton1.Value = False OptionButton2.Value = False OptionButton2.Value = False OptionButton3.Value = False OptionButton3.Value = False OptionButton4.Value = False OptionButton4.Value = False Label2.Caption =“” Label2.Caption =“”现代教育技术现代教育技术5 5“下一题下一题”命令按钮命令按钮在幻灯片适当地方插入一个命令按钮，修改其

32、在幻灯片适当地方插入一个命令按钮，修改其CaptionCaption属性为属性为“下一题下一题”，在编辑窗口中的，在编辑窗口中的 Private Sub CommandButton3_Click()Private Sub CommandButton3_Click() 和和End SubEnd Sub语句间插入语句间插入: :If MsgBoxIf MsgBox(“(“是否继续是否继续”, VbYesNo + VbQue, VbYesNo + VbQuestionstion, “, “下一题下一题”)= VbYes)= VbYes Then Then With SlideShowWindows(

33、1).View With SlideShowWindows(1).View GotoSlide GotoSlide 2 2 End With End With /2/2为第为第2 2张幻灯片，此语句表示转到第张幻灯片，此语句表示转到第2 2张幻灯张幻灯片片 End if End if 现代教育技术现代教育技术“ “重新选择重新选择”和和“下一题下一题”命令按钮代码编辑窗命令按钮代码编辑窗口口现代教育技术现代教育技术如果要根据条件的不同转到不同的幻灯片，可如果要根据条件的不同转到不同的幻灯片，可用下面语句：用下面语句：If If 条件条件then then With SlideShowWindo

34、ws(1).View With SlideShowWindows(1).View .GotoSlide .GotoSlide n n /n/n为第为第n n张幻灯片，转到第张幻灯片，转到第n n张幻灯片张幻灯片 End WithEnd With End if End if 现代教育技术现代教育技术说明：条件可以是说明：条件可以是CaptionCaption属性或属性或ValueValue属性，属性，书写方法为：控件名称书写方法为：控件名称( (在在VBAVBA中的名称中的名称).).属性属性= =(value(value属性为属性为TrueTrue或或FalseFalse，CaptionCap

35、tion属性为具属性为具体文本，注意文本要加双引号体文本，注意文本要加双引号) )，如下面语句：，如下面语句： If OptionButton1.Value=True thenIf OptionButton1.Value=True then End if End if表示如果单选框表示如果单选框1 1的的ValueValue值为值为TrueTrue，那么运行，那么运行t thenhen后的语句，一直到后的语句，一直到End ifEnd if。 现代教育技术现代教育技术（二）多选题的制作（二）多选题的制作题目的设计同单选题。题目的设计同单选题。答案选项用复选框（答案选项用复选框（CheckBox

36、CheckBox），其他设置同），其他设置同单选题。单选题。“查看答案查看答案”命令按钮，因为是多选题，答案命令按钮，因为是多选题，答案有多个，所以要书写多个条件，条件之间用有多个，所以要书写多个条件，条件之间用andand连接，表示同时满足这几个条件，比如第连接，表示同时满足这几个条件，比如第1 1、3 3选项是正确的，则需要输入如下语句：选项是正确的，则需要输入如下语句：现代教育技术现代教育技术If CheckBox1.Value=True And CheckBox3.ValueIf CheckBox1.Value=True And CheckBox3.Value=True Then=Tr

37、ue Then 给出正确的提示信息同单选题给出正确的提示信息同单选题ElseElse 给出错误的提示信息同单选题给出错误的提示信息同单选题End if End if 现代教育技术现代教育技术（三）填空题的制作（三）填空题的制作点击文本框控件，在幻灯片适当的位置拖拉鼠点击文本框控件，在幻灯片适当的位置拖拉鼠标得到合适大小的文本框。选中该文本框，右标得到合适大小的文本框。选中该文本框，右击选择击选择“查看代码查看代码”命令，打开代码编辑窗口，命令，打开代码编辑窗口，点击右上方的下拉按钮，在弹出的下拉列表中点击右上方的下拉按钮，在弹出的下拉列表中选择选择“LostFocusLostFocus”。这样当文本输入完成、鼠标离开这个文本框时，这样当文本输入完成、鼠标离开这个文本框时，就会出现在下面设置好的反馈信息。就会出现在下面设置好的反馈信息。现代教育技术现代教育技术在代码编辑窗口中找到在代码编辑窗口中找到:Private Sub TextBox1_Lo:Private Sub TextBox1_LostFocus()stFocus()和和End SubEnd Sub语句语句, ,插入代码：插入代码：If TextBox1.Value =“If TextBox1.Val