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

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

《PPT课件交互制作 教学设计新部编版.docx》由会员分享，可在线阅读，更多相关《PPT课件交互制作 教学设计新部编版.docx（24页珍藏版）》请在冰豆网上搜索。

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）：

输入的代码如下：

PrivateSubCommandButton1_Click（）

SetmyDocument=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）

EndSub

PrivateSubCommandButton2_Click（）

SetmyDocument=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）

EndSub

6、代码写好后，即可完成了本次颜色编辑。

两个颜色方案演示如下图：

颜色方案一（图6）：

颜色方案二（图7）：

三、调用窗体的学习

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

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

1、在第二张幻灯片中添加一个“命令按钮”，添加方法上面有介绍，右键，调出“属性”窗口，修改Caption属性值为“调用窗体”，如下图（图8）：

2、在PowerPoint菜单中选择“工具”——“宏”——“VisualBasic编辑器”，即可打开VBA编辑器，然后点击“工程资源管理器”图标，弹出“工程资源管理器”窗口，点击右键，在出现的快捷菜单中选择“插入——用户窗体”命令，随后即可显示默认窗体和控件工具箱，如下图所示（图9）：

3、新添加的用户窗体的名称为：

UserForm1，现在需要添加一个图形控件，在控件工具箱中选中“图像”控件，然后将鼠标放到用户窗体中，拖动鼠标即可自行控制图像控件的大小。

4、鼠标在图片框中点击右键，选择“属性”，即可打开控件属性窗口

5、在属性Picture中，点击后插入需要的图片，此时插入的图片未能够使用图片框的大小，可以点击属性PictureSizeMode取值3，图片即可自动适应大小，如果尚未适合图片框，可以自行拖动图片框，让图片与图片框能够更好地相互适应，完成后如下图（图10）：

6、返回幻灯片编辑界面，双击刚才创建的命令按钮“调用窗体”，即可打开VBA代码编辑，此时可以输入Click事件代码：

UserForm1.show,本代码意思是：

当幻灯片播放时，点击按钮，用户窗体即可打开。

如

代码如下：

PrivateSubCommandButton1_Click（）

UserForm1.Show

EndSub

7、完成后，播放幻灯片，点击调用窗体，此时窗体就好像一幅教学的“小黑板”可以移动这个窗体，而不会妨碍幻灯片的空间。

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

效果如下图所示（图11）：

四、学生练习

联系你的教学需要，制作具有交互式的练习试题PPT课件。

作业要求：

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

题目内容不限，每道题有多个选择答案提供选择，当选择答案后，点击“提交答案”按钮，然后根据作答情况作出判断，并显示提示框：

如果所选择的答案是对的，弹出一个“恭喜你，选择正确！

”对话框；但如果选择错误了，则弹出“选择错误，请再想想！

”对话框。

一、单项选择题

先查看整体版面（图14）：

1、新建文件后，插入文本框，写上单项选择题，以及题目内容“关于信息的下列说法中，正确的是：

（）”；

2、创建选项按钮，选择视图——工具栏——控件工具栏，调出控件工具栏，点击“选项按钮”控件（图1）

光标在幻灯片适当位置拖动鼠标，创建第一个选项按钮，同样方法，创建其他三个选项按钮。

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

4、添加“命令按钮”，右键修改相应的熟悉，Caption改为“提交答案”，然后双击按钮，打开VBA编辑器，输入相应代码，代码如下：

PrivateSubCommandButton1_Click（）

IfOptionButton1.Value=TrueThen

ex=MsgBox（"恭喜你，选择正确！

——颜凤珠",vbOKOnly）

Else

ex=MsgBox（"选择错误，请再想想！

——颜凤珠",vbOKOnly）

EndIf

EndSub

代码分析：

以上代码的功能是：

当用户点击“提交答案”按钮后，计算机自动执行这一段代码，判断用户输入的是否符合要求，这是一段判断语句，因为A选项是正确的，所以如果选择了A选择，就会弹出"恭喜你，选择正确！

——颜凤珠"对话框，如果选择其他选择，则会弹出"选择错误，请再想想！

——颜凤珠",对话框。

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

PrivateSubCommandButton2_Click（）

WithSlideShowWindows

（1）.View

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

EndWith

EndSub

全部代码截图如下（图20）：

6、保持文件后，运行文件后，效果如下图：

选择正确答案（图12）：

选择错误答案（图13）：

二、多项选择题

先查看整体版面（图16）：

1、新建文件后，插入文本框，写上多项选择题，以及题目内容“把一个文件从硬盘复制到U盘的方法有：

（）”；

2、创建选项按钮，选择视图——工具栏——控件工具栏，调出控件工具栏，点击“复选框”控件（图15）

光标在幻灯片适当位置拖动鼠标，创建第一个选项按钮，同样方法，创建其他三个选项按钮。

3、创建好按钮后，按钮一右键，编辑其属性如“Caption”、“Font”、“ForeColor”等，然后编辑“Value”为“False”即可，其他三个按钮的编辑方法相同，相应的内容分别是A.复制与粘贴，B.剪切与粘贴，C.使用【文件】菜单的【发送】命令，D.使用【文件】菜单的【新建】命令（答案是AC）

4、添加“命令按钮”，右键修改相应的熟悉，Caption改为“提交答案”，然后双击按钮，打开VBA编辑器，输入相应代码，代码如下：

PrivateSubCommandButton1_Click（）

IfCheckBox1.Value=TrueAndCheckBox3.Value=TrueThen

ex=MsgBox（"恭喜你，选择正确！

——颜凤珠",vbOKOnly）

Else

ex=MsgBox（"选择错误，请再想想！

——颜凤珠",vbOKOnly）

CheckBox1.Value=False

CheckBox2.Value=False

CheckBox3.Value=False

CheckBox4.Value=False

EndIf

EndSub

代码分析：

以上代码的功能是：

当用户点击“提交答案”按钮后，计算机自动执行这一段代码，判断用户输入的是否符合要求，这是一段判断语句，因为A、C选项是正确的，只做了一种全对的判断，全对了，就会弹出"恭喜你，选择正确！

——颜凤珠"对话框，如果不全对，则会弹出"选择错误，请再想想！

——颜凤珠",对话框。

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

上一页代码如下：

PrivateSubCommandButton2_Click（）

WithSlideShowWindows

（1）.View

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

EndWith

EndSub

下一页代码如下：

PrivateSubCommandButton2_Click（）

WithSlideShowWindows

（1）.View

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

EndWith

EndSub

全部代码截图（图19）：

6、保持文件后，运行文件后，效果如下图：

选择正确答案（图17）：

选择错误答案（图18）：

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

选择正确答案（图22）：

选择错误答案（图21）：

代码截图如下（图23）：

代码为:

PrivateSubCommandButton2_Click（）

IfCheckBox3.Value=TrueAndCheckBox4.Value=TrueAndCheckBox6.Value=TrueAndCheckBox7.Value=TrueThen

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

EndIf

EndSub上一页代码：

PrivateSubCommandButton1_Click（）

WithSlideShowWindows

（1）.View

.GotoSlide2

EndWith

EndSub