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

妙用OfficeVBA制作交互式幻灯片(二)、开始制作1.新建一张空“幻灯片”。2.放置一个“文本框”，输入“He____agoodteacher.”3.点击“控件工具”上的“文本框”控件(这时鼠标会变成“十字形”)，然后在“He”“a”之间拖拽鼠标，就可以放置一个“文本框”控件，最后调整好大小和位置。4.再点击“控件工具箱”上的“命令按钮”控件，用同样的方法拖拽鼠标在幻灯片上放置一个“命令按钮”控件。5.用鼠标“右键”点击刚刚放置好的“命令按钮”，选择“属性”。此时会弹出如(图二)所示的对话框。6.找到“Caption”项，把后面的“CommandButton1”值改成“完成”，关闭属性对话框，即可改变按键名字。7.双击“完成”，此时便进入到了VisualBasic代码编写环境里。8.你会看到如下所示的两行代码PrivateSubCommandButton1_Click()EndSub把这上面的两行代码改成：PrivateSubCommandButton1_Click()IfTextBox1.Text=isThenMsgBox你答对了ElseMsgBox你答错了!EndIfEndSub说明：此处使用了一个If…then…语句。你也可以使用While语句。9.按F5按键观看效果，随便输入一个单词，然后单击“完成”看看有什么结果。注意：至于实际需要多少题，只要如法炮制即可。二、给幻灯片做一个跳转按键给幻灯片做一个跳转按键，在播放幻灯时只要按下相应的按钮就可以是播放的内容跳转到相应的片断。比方说，从第1页跳到第3页或从第3页跳到第1页。制作：首先在幻灯片上放置一个“命令按钮控件”。然后双击它，进入VisualBasic编辑器，输入以下代码：PrivateSubCommandButton1_Click()SlideShowWindows(Index:=1).View.GotoSlideIndex:=2EndSub说明：index:=2指跳到第2页，如果需要跳到第3页则输入以下代码：SlideShowWindows(Index:=1).View.GotoSlideIndex:=3注意：在OfficeXP中默认情况下是禁用宏的，如果播放的时候没有出现交互效果，请将“工具｜选项｜安全”的“宏安全性”设置为“低”或者“中”。其实VBA的功能远远不止这些，本文只是起一个抛砖引玉的作用。好了，心动不如行动，赶快动手吧!