返回首页
当前位置: 主页 > 办公软件 > Outlook教程 >

妙用Office VBA制作交互式幻灯片

时间:2014-09-30 16:13来源:电脑教程学习网 www.etwiki.cn 编辑:admin

Office VBA实际上是Visual Basic的一个子集,它具备VB大部分功能,通过它我们可以让PowerPoint实现交互效果。

  一、具备判断功能的“幻灯片”

  你们是否想过让学生在“幻灯片”里做练习,并且计算机会判断这位同学所输入的答


 
'); 案是否正确?

  下面我们就来制作一张具备判断功能的“多媒体幻灯片”。

  (一)准备工作:

  1.启动PowerPointXP(注:PowerPoint97和2000也行)

  2.点击“视图|工具栏|控件工具箱”。这时你会发现屏幕上多了个小窗口“控件工具箱”。

妙用Office VBA制作交互式幻灯片 - 豆豆 - 学习SPSS,EXCEL各种统计软件

  如(图一)所示。

  主要有:“复选框”、“文本框”、“命令按钮”、“选项按钮”等控件。

  (二)、开始制作

  1.新建一张空“幻灯片”。

  2.放置一个“文本框”,输入“He ____ a good teacher.”

  3.点击“控件工具”上的“文本框”控件(这时鼠标会变成“十字形”),然后在“He”“a”之间拖拽鼠标,就可以放置一个“文本框”控件,最后调整好大小和位置。

  4.再点击“控件工具箱”上的“命令按钮”控件,用同样的方法拖拽鼠标在幻灯片上放置一个“命令按钮”控件。

妙用Office VBA制作交互式幻灯片 - 豆豆 - 学习SPSS,EXCEL各种统计软件

  5.用鼠标“右键”点击刚刚放置好的“命令按钮”,选择“属性”。此时会弹出如(图二)所示的对话框。

  6.找到“Caption”项,把后面的“CommandButton1”值改成“完成”,关闭属性对话框,即可改变按键名字。

  7.双击“完成”,此时便进入到了Visual Basic代码编写环境里。

  8.你会看到如下所示的两行代码

  Private Sub CommandButton1_Click()

  End Sub

  把这上面的两行代码改成:

  Private Sub CommandButton1_Click()

  If TextBox1.Text = "is" Then

  MsgBox "你答对了"

  Else

  MsgBox "你答错了!"

  End If

  End Sub

  说明:此处使用了一个If…then…语句。你也可以使用While语句。

  9.按F5按键观看效果,随便输入一个单词,然后单击“完成”看看有什么结果。

  注意:至于实际需要多少题,只要如法炮制即可。

  二、给幻灯片做一个跳转按键

  给幻灯片做一个跳转按键,在播放幻灯时只要按下相应的按钮就可以是播放的内容跳转到相应的片断。比方说,从第1页跳到第3页或从第3页跳到第1页。

  制作:首先在幻灯片上放置一个“命令按钮控件”。然后双击它,进入Visual Basic编辑器,输入以下代码:

  Private Sub CommandButton1_Click()

  SlideShowWindows(Index:=1).View.GotoSlide Index:=2

  End Sub

  说明:index:=2指跳到第2页,如果需要跳到第3页则输入以下代码:SlideShowWindows(Index:=1).View.GotoSlide Index:=3

  注意:在OfficeXP中默认情况下是禁用宏的,如果播放的时候没有出现交互效果,请将“工具|选项|安全”的“宏安全性”设置为“低”或者“中”。

  其实VBA的功能远远不止这些,本文只是起一个抛砖引玉的作用。好了,心动不如行动,赶快动手吧!

------分隔线----------------------------
标签(Tag):outlook教程 outlook视频教程 outlook技巧 outlook下载 outlook
------分隔线----------------------------
推荐内容
猜你感兴趣