PPT课件交互制作教学设计

2020-03-02 11:34:01 来源：范文大全收藏下载本文

广州市海珠实验中学 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 Sub

Private 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 Sub

6、代码写好后，即可完成了本次颜色编辑。两个颜色方案演示如下图：

颜色方案一（图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.Show End Sub

7、完成后，播放幻灯片，点击调用窗体，此时窗体就好像一幅教学的“小黑板”可以移动这个窗体，而不会妨碍幻灯片的空间。当不需要这个窗体的时候，点击窗体右上角的“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 Then ex = MsgBox(\"恭喜你，选择正确！——颜凤珠\", vbOKOnly) Else ex = MsgBox(\"选择错误，请再想想！——颜凤珠\", vbOKOnly) End If End Sub 代码分析：以上代码的功能是：当用户点击“提交答案”按钮后，计算机自动执行这一段代码，判断用户输入的是否符合要求，这是一段判断语句，因为A选项是正确的，所以如果选择了A选择，就会弹出\"恭喜你，选择正确！——颜凤珠\"对话框，如果选择其他选择，则会弹出\"选择错误，请再想想！——颜凤珠\",对话框。

5、添加“下一页”命令按钮，修改按钮Caption等属性，双击打开按钮的VBA编辑器，输入代码，代码如下： Private Sub CommandButton2_Click()

With SlideShowWindows(1).View

.GotoSlide 2（切换到指定的幻灯片，第2页）

End With End 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 Then ex = MsgBox(\"恭喜你，选择正确！——颜凤珠\", vbOKOnly) Else ex = MsgBox(\"选择错误，请再想想！——颜凤珠\", vbOKOnly) CheckBox1.Value = False CheckBox2.Value = False CheckBox3.Value = False CheckBox4.Value = False End If End Sub 代码分析：以上代码的功能是：当用户点击“提交答案”按钮后，计算机自动执行这一段代码，判断用户输入的是否符合要求，这是一段判断语句，因为A、C选项是正确的，只做了一种全对的判断，全对了，就会弹出\"恭喜你，选择正确！——颜凤珠\"对话框，如果不全对，则会弹出\"选择错误，请再想想！——颜凤珠\",对话框。

5、添加“上一页”“下一页”命令按钮，修改按钮Caption等属性，双击打开按钮的VBA编辑器，输入代码，代码如下：上一页代码如下：

Private Sub CommandButton2_Click() With SlideShowWindows(1).View

.GotoSlide 1（切换到指定的幻灯片，第1页）

End With End Sub 下一页代码如下：

Private Sub CommandButton2_Click()

With SlideShowWindows(1).View

.GotoSlide 3（切换到指定的幻灯片，第3页）

End With End Sub 全部代码截图（图19）：

6、保持文件后，运行文件后，效果如下图：选择正确答案（图17）：

选择错误答案（图18）：

第三道多项选择题，有7个选项，其中CDFG是正确答案选择正确答案（图22）：

选择错误答案（图21）：

代码截图如下（图23）：

代码为: Private Sub CommandButton2_Click() If CheckBox3.Value = True And CheckBox4.Value = True And CheckBox6.Value = True And CheckBox7.Value = True Then ex = MsgBox(\"恭喜你，选择正确！——颜凤珠\", vbOKOnly) Else ex = MsgBox(\"选择错误，请再想想！——颜凤珠\", vbOKOnly) CheckBox1.Value = False CheckBox2.Value = False CheckBox3.Value = False CheckBox4.Value = False CheckBox5.Value = False CheckBox6.Value = False CheckBox7.Value = False End If End Sub上一页代码：

Private Sub CommandButton1_Click() With SlideShowWindows(1).View

.GotoSlide 2

End With End Sub

【怎样制作ppt课件】focusky交互功能教程