PPT课件交互制作 教学设计新部编版

教师学科教案[ 20 – 20 学年度第__学期]任教学科：_____________任教年级：_____________任教老师：_____________xx市实验学校广州市海珠实验中学PPT课件交互制作——教学设计教学课题：PPT课件交互制作教学班级：高一（2）班授课时间：2011学年第一学期第三周周二第八节授课教师：颜凤珠教学目标（三维目标）1．知识与能力：（1）认识VGB编辑器，学会使用“命令按钮”、“用户窗体”；（2）学会进行简单的VGB代码编辑；（3）提高PPT课件交互制作技巧与能力。

2．过程与方法：在自主性、研究性、协作性环境下，学会自主探究，学会与人协作。

3．情感、态度与价值观：在自主探究的过程中，培养一种敢于尝试，不怕失败的品质；在与人协作的过程中，体验团结的力量；在交流评价时，学会自我反思，懂得尊重人。

学情分析：我校的学生对于基础的PowerPoint课件制作技术还是比较好，但是对于PPT的交互性技术就较为薄弱，主要是PPT交互制作的方法和知识的建构缺乏连贯性，操作能力不强。

教材分析：PowerPoint软件是Office系列办公软件中，继Word后的又一个实用的工具软件，它的操作比较简便，而且是学生以后展示作品、发布成果的强有力的工具。

教学重点、难点1．VGB代码编辑;2．“命令控件”、“用户窗体”控件的插入与属性编辑。

教学策略：尝试操作、自主探究；组内互助、小组交流；模仿对比，反思提高。

教学准备：教学硬件，计算机网络室、PowerPoint2003软件教学过程：一、学生参考教材，完成以下操作要求实现下面操作与功能：给图形变颜色及移动带图片的小黑板。

要求如下：在第一页幻灯片中，添加三个自选图形、二个“命令按钮”控件，要求使用这两个命令按钮分别控制二套颜色方案，对三个自选图形控制颜色。

在第二页幻灯片中，添加一个“命令按钮”控件，再在VBA编辑器中设计一个“用户窗体”，在“用户窗体”中插入一幅图片（或一段文字框）。

在幻灯片放映时，点击“命令按钮”就可以弹出带“用户窗体”的图片，同时，你还可以随时移动这个图片，好象在课堂教学中要移动一块小黑板一样方便。

二、教师展示制作过程第一页幻灯片，整体效果图如下（图3）：1、首先添加三个自选图形，双击图形，弹出“设置自选图形格式”，在填充项中，设置图形的颜色，如下图（图2）：2、选择视图—工具栏—控件工具箱，选择“命令控件”，然后在幻灯片上拖拉出两个命令控件，然后右键——属性，如下图，可在此属性窗口中对命令控件的相关属性进行编辑，如BackColor（背景颜色）、Caption值等，如下图（图4）：3、了解认识颜色R、G、B配色方案，首先我在幻灯片首页点击右键，选择背景，然后现在下拉菜单中选择其他颜色，即可看到颜色对话框中有“标准”、“自定义”，选择自定义，如下图所示（图24）：从窗口中可以看到，没选择一种颜色，窗口下面标有红色，绿色，蓝色的数字就会自动变化，如下图演示（图25）：此时的RGB分值分别为：39、217、183，从此可见，颜色可以由红、绿、蓝三种颜色的混合来决定。

选择适合的颜色后，需要几下RGB的数值。

4、目前是需要为幻灯片上的图形着色，有两种不同的方案。

首先，每一个自选图形都叫shape对象，最先绘制的图形序号为1，标记为shape（1）、shape（2）、shape（3）。

5、给两个命令按钮添加VBA代码，直接双击命令按钮，即可打开VBA编辑器，截图如下（图5）：输入的代码如下：Private Sub CommandButton1_Click()Set myDocument = ActivePresentation.Slides(1)myDocument.Shapes(1).Fill.ForeColor.RGB = RGB(50, 200, 158)myDocument.Shapes(2).Fill.ForeColor.RGB = RGB(243, 180, 50)myDocument.Shapes(3).Fill.ForeColor.RGB = RGB(200, 50, 255)End SubPrivate Sub CommandButton2_Click()Set myDocument = ActivePresentation.Slides(1)myDocument.Shapes(1).Fill.ForeColor.RGB = RGB(252, 110, 4)myDocument.Shapes(2).Fill.ForeColor.RGB = RGB(255, 1, 1)myDocument.Shapes(3).Fill.ForeColor.RGB = RGB(252, 217, 4)End Sub6、代码写好后，即可完成了本次颜色编辑。

两个颜色方案演示如下图：颜色方案一（图6）：颜色方案二（图7）：三、调用窗体的学习在第二页幻灯片中，添加一个“命令按钮”控件，再在VBA编辑器中设计一个“用户窗体”，在“用户窗体”中插入一幅图片（或一段文字框）。

在幻灯片放映时，点击“命令按钮”就可以弹出带“用户窗体”的图片，同时，你还可以随时移动这个图片，好象在课堂教学中要移动一块小黑板一样方便。

1、在第二张幻灯片中添加一个“命令按钮”，添加方法上面有介绍，右键，调出“属性”窗口，修改Caption属性值为“调用窗体”，如下图（图8）：2、在PowerPoint菜单中选择“工具”——“宏”——“Visual Basic 编辑器”，即可打开VBA编辑器，然后点击“工程资源管理器”图标，弹出“工程资源管理器”窗口，点击右键，在出现的快捷菜单中选择“插入——用户窗体”命令，随后即可显示默认窗体和控件工具箱，如下图所示（图9）：3、新添加的用户窗体的名称为：UserForm1，现在需要添加一个图形控件，在控件工具箱中选中“图像”控件，然后将鼠标放到用户窗体中，拖动鼠标即可自行控制图像控件的大小。

4、鼠标在图片框中点击右键，选择“属性”，即可打开控件属性窗口5、在属性Picture中，点击后插入需要的图片，此时插入的图片未能够使用图片框的大小，可以点击属性PictureSizeMode取值3，图片即可自动适应大小，如果尚未适合图片框，可以自行拖动图片框，让图片与图片框能够更好地相互适应，完成后如下图（图10）：6、返回幻灯片编辑界面，双击刚才创建的命令按钮“调用窗体”，即可打开VBA代码编辑，此时可以输入Click事件代码：UserForm1.show,本代码意思是：当幻灯片播放时，点击按钮，用户窗体即可打开。

如代码如下：Private Sub CommandButton1_Click()UserForm1.ShowEnd Sub7、完成后，播放幻灯片，点击调用窗体，此时窗体就好像一幅教学的“小黑板”可以移动这个窗体，而不会妨碍幻灯片的空间。

当不需要这个窗体的时候，点击窗体右上角的“X”就可以关闭窗体了。

效果如下图所示（图11）：四、学生练习联系你的教学需要，制作具有交互式的练习试题PPT课件。

作业要求：至少制作二张幻灯片，在第一张幻灯片上制作一道单项选择题；在第二张幻灯片上制作一道多项选择题。

题目内容不限，每道题有多个选择答案提供选择，当选择答案后，点击“提交答案”按钮，然后根据作答情况作出判断，并显示提示框：如果所选择的答案是对的，弹出一个“恭喜你，选择正确！”对话框；但如果选择错误了，则弹出“选择错误，请再想想！”对话框。

一、单项选择题先查看整体版面（图14）：1、新建文件后，插入文本框，写上单项选择题，以及题目内容“关于信息的下列说法中，正确的是：（）”；2、创建选项按钮，选择视图——工具栏——控件工具栏，调出控件工具栏，点击“选项按钮”控件（图1）光标在幻灯片适当位置拖动鼠标，创建第一个选项按钮，同样方法，创建其他三个选项按钮。

3、创建好按钮后，按钮一右键，编辑其属性如“Caption”、“Font”、“ForeColor”等，然后编辑“Value”为“False”即可，其他三个按钮的编辑方法相同，相应的内容分别是A.信息是具有价值的，B.信息是可以不依附于任何载体的，C.信息是永远有效的，D.信息是无法进行加工的。

4、添加“命令按钮”，右键修改相应的熟悉，Caption改为“提交答案”，然后双击按钮，打开VBA编辑器，输入相应代码，代码如下：Private Sub CommandButton1_Click()If OptionButton1.Value = True Thenex = MsgBox("恭喜你，选择正确！——颜凤珠", vbOKOnly)Elseex = MsgBox("选择错误，请再想想！——颜凤珠", vbOKOnly)End IfEnd Sub代码分析：以上代码的功能是：当用户点击“提交答案”按钮后，计算机自动执行这一段代码，判断用户输入的是否符合要求，这是一段判断语句，因为A选项是正确的，所以如果选择了A选择，就会弹出"恭喜你，选择正确！——颜凤珠"对话框，如果选择其他选择，则会弹出"选择错误，请再想想！——颜凤珠",对话框。

5、添加“下一页”命令按钮，修改按钮Caption等属性，双击打开按钮的VBA编辑器，输入代码，代码如下：Private Sub CommandButton2_Click()With SlideShowWindows(1).View.GotoSlide 2（切换到指定的幻灯片，第2页）End WithEnd Sub全部代码截图如下（图20）：6、保持文件后，运行文件后，效果如下图：选择正确答案（图12）：选择错误答案（图13）：二、多项选择题先查看整体版面（图16）：1、新建文件后，插入文本框，写上多项选择题，以及题目内容“把一个文件从硬盘复制到U盘的方法有：（）”；2、创建选项按钮，选择视图——工具栏——控件工具栏，调出控件工具栏，点击“复选框”控件（图15）光标在幻灯片适当位置拖动鼠标，创建第一个选项按钮，同样方法，创建其他三个选项按钮。

3、创建好按钮后，按钮一右键，编辑其属性如“Caption”、“Font”、“ForeColor”等，然后编辑“Value”为“False”即可，其他三个按钮的编辑方法相同，相应的内容分别是A.复制与粘贴，B.剪切与粘贴，C.使用【文件】菜单的【发送】命令，D.使用【文件】菜单的【新建】命令（答案是AC）4、添加“命令按钮”，右键修改相应的熟悉，Caption改为“提交答案”，然后双击按钮，打开VBA编辑器，输入相应代码，代码如下：Private Sub CommandButton1_Click()If CheckBox1.Value = True And CheckBox3.Value = True Thenex = MsgBox("恭喜你，选择正确！——颜凤珠", vbOKOnly)Elseex = MsgBox("选择错误，请再想想！——颜凤珠", vbOKOnly)CheckBox1.Value = FalseCheckBox2.Value = FalseCheckBox3.Value = FalseCheckBox4.Value = FalseEnd IfEnd Sub代码分析：以上代码的功能是：当用户点击“提交答案”按钮后，计算机自动执行这一段代码，判断用户输入的是否符合要求，这是一段判断语句，因为A、C选项是正确的，只做了一种全对的判断，全对了，就会弹出"恭喜你，选择正确！——颜凤珠"对话框，如果不全对，则会弹出"选择错误，请再想想！——颜凤珠",对话框。