交互式PPT.doc

交互式PPT
制作交互式ppt课件一
PowerPoint中的VBA可以实现很多复杂的交互，但很多老师面对VBA编程,都会觉得无从下手。所以本期我们为大家安排了一个关于PowerPoint中VBA的小专题，以后在课件中实现交互就不会那么n属性。
查看答案命令按钮
在此使用命令按钮，我们可根据单选框的Value属性的值来判断答案，如正确选项(单选框)的Value的值为True，则为该题选择正确，否则为选择错误，我们还可根据选择正误来给出信息，有两种方法。
(1)方法一
用MsgBox()，如果选择正确，显示信息“VeryGood!请继续！”，错误则显示“Sorry,你选错了！正确答案是3,请继续努力。”
操作步骤：双击单选框进入VBA在编辑窗口中完成以下操作。
在编辑窗口中找到如下两条语句：
PrivateSubOptionButton3_Click()
EndSub
然后在上面这两条语句中间插入以下语句:
=TrueThenex=MsgBox（"VeryGood!请继续努力。
",Vbokonly）
同理，找到如下两条语句：
PrivateSubOptionButton1_Click（）
EndSub
在这两条语句中间插入语句：
=TrueThenex=MsgBox（"正确答案是3，请继续
努力。",Vbokonly）
找到如下两条语句
PrivateSubOptionButton2_Click（）
EndSub
在这两条语句中间插入语句
=TrueThenex=MsgBox（"正确答案是3，请继续
努力。",Vbokonly）
说明：ex为自定义变量
（2）方法二
在幻灯片合适的地方插入一标签，修改其Caption属性为空，其他设置同方法一，只要把正确选项中的“then”后的语名改为“="Very
Good!"请继续！"”，错误选项的改为“="正确答案是3，请继
续努力。"”即可。
重新选择命令按钮
在幻灯片适当的地方插入一命令按钮，修改其Caption属性为“重新选
择”，在编辑窗口中的PrivateSubCommandButton1_Click（）和EndSub语句间插入：
=False
=False
=False
=""如判断正误用的是方法一，此语句不要）
下一题命令按钮
在幻灯片适当地方插入一命令按钮，修改其Caption属性为“下一题”，在
编辑窗口中的PrivateSubCommandButton1_Click（）和EndSub语句间插入
IfMsgBox（"是否继续”，vbYesNo+vbQuestion,“下一题”）=vbYesThen
WithSlideShowWindows（1）.View
.GotoSlide2
EndWith（2为第2张幻灯片，此语句表示转到第2张幻灯片）
Endif
如果要根据条件的不同转到不同的幻灯片，可用下面语句：
if条件then
WithSlideShowWindows（1）.View
.GotoSlide2
EndWith
Endif
说明：条件可以是Caption属性或value属性，书写方法为：控件名称（在VBA中的名称）.属性=（value属性为True或False，Caption属性为具体文本，注意文本要加双引号），例如下面的语句：
=truethen
表示如果单选框1的value值为True，那么运行then后的语句，一直到endif。
判断题的制作
所有的设置与单选题类似，只不过是设计两个选项“V”和“x”，这两个符号可先在Word中插入，然后再复制过来。
交互式ppt课件的制作二
2009-11-0423:10
用PowerPoint2007可以方便迅速地做出演示型课件。但上课是需要交互的,即使是简单的单项选择题或者是非判断题也应该要根据学生们的选择在课件中做出相应的反应的。下面我们用PowerPoint2007制作简单的交互式练习题。
一、用到的控件属性
先点击PowerPoint左上角“Ofice选项”按钮，在弹出的菜单中点击右下角“PowerPoint选项”按钮，在打开的对话框中选中“在功能区显示“开发工具”选项卡”复选项。完成后就可以在功能区添加“开发工具”选项卡了