PowerPoint中VBA可以实现复杂的交互

PowerPoint中VBA可以实现复杂的交互

PowerPoint中的VBA可以实现很多复杂的交互，但很多老师面对VBA编程，都会觉得无从下手。所以本期我们为大家安排了一个关于PowerPoint中VBA的小专题，以后在课件中实现交互就不会那么费劲了。

VBA基础

说到VBA编程，就不得不提到控件工具箱，我们需要利用其中的控件搭建需要的环境。 1． 显示控件工具箱

在PowerPoint中选择菜单“视图/工具栏/控件工具箱”。 2． 控件工具箱（如图1）中常用按钮的介绍

（1）复选框（CheckBox）：可以选择多个选项，常用来设计多选题；（2）文本框（TextBox）：可以输入文本，常用来设计填空题；（3）命令按钮（CommandButton）：用来确定选择或输入，也可设计超级链接；（4）单选框（OptionButton）：只能选中一个选项，常用来设计单选题或判断题；（5）标签（Label）：用来显示文字信息。 3． 插入控件的方法

单击控件工具箱上的工具按钮，然后在幻灯片中拖动到适当大小即可。 4． 进入VBA的方法

双击幻灯片中的控件或用菜单命令“工具/宏/Visual basic编辑器”即可进入VBA编程状态。 5． 控件的主要属性及设置方法

进入VBA后，需要在“属性”窗口中对控件的属性进行设置。如果没有出现“属性”窗口，按F4键即可调出该窗口。下面我们就不同的控件，来说明常用属性的设置方法。 （1）复选框

AutoSize：有两个值，True表示根据字的多少调整复选框的大小，False表示复选框为固定大小；BackColor：设置复选框的背景颜色，单击该属性框出现下拉按钮，选择“调色板”选项卡后选择颜色；Caption：控件的名称，把默认值删除再重新输入新名称；Font：设置字体、字号及字形，单击该属性框出现按钮，单击该按钮出现字体对话框，再在对话框中设置；Forecolor：设置字的颜色，设置方法同BackColor；Height：复选框的高度，直接输入数字即可；Width：复选框的宽度，直接输入数字即可；Value：复选框的值，True为选中，False则相反。 （2）文本框

AutoSize、BackColor、Font、ForeColor、Height、Width等属性的设置方法同复选框；Value：文本框的值，用来保存输入的文本；TextAlign：设置文本对齐方式。 （3）单选框

属性设置同复选框。 （4）标签

除Value外，其他同复选框。 （5）命令按钮 同标签。

6． 消息框MsgBox 的功能

我们常用消息框显示一些交互的信息，如图2所示的消息框用下面的语句可实现： Msgbox(\这是一个例题\示例\ 多选题的制作

1. 题目的设计同单选题

2. 选项：用复选框（CheckBox)，其他设置同单选题。

3. [查看答案]命令按钮：因为是多选题，答案有多个，所以要书写多个条件，条件之间用and连接，表示同时满足这几个条件，例如第一、三、五的选项是正确的，则需要输入如下语句： If CheckBox1.Value=True And CheckBox3.Value=True And CheckBox5.Value=True Then 给出正确的提示信息同单选题 else

给出错误的提示信息同单选题 end if

填空题的制作

1. 题目的设置同单选题，填空的地方用文本框。

2. 判断正误：因为是填空题，所填答案是文本，所以条件书写为： if TextBox1.value=\正确的文本\给出正确的提示信息同单选题 else

给出错误的提示信息同单选题 end if

注意：正确的文本一定要用半角双引号括起来，如几个空一起判断，方法同多选题。 3. [重新填空]命令按钮：需要完成如下语句的设置： Private Sub CommandButton2_Click()

TextBox1.Value = \请双击后填入你的答案！\ End Sub

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) TextBox1.Value = \ End Sub

单选题的制作

例如我们要设计如图1所示的选择题。 1． 题目

可用文本框，也可用标签。如果用文本框，直接输入文本即可。如果用标签，插入后双击该标签启动VBA，修改Caption属性为“5X-15=0的解是：”，再根据需要修改其他属性（如颜色等）。 2． 选项

插入一单选框，修改其Caption属性为“0”，其他属性可自行修改。其他的单选项可复制制作好的单选框，然后再修改它们的Caption属性。 3． 查看答案命令按钮

在此使用命令按钮，我们可根据单选框的Value属性的值来判断答案，如正确选项（单选框）的Value的值为True，则为该题选择正确，否则为选择错误，我们还可根据选择正误来给出信息，有两种方法。

（1）方法一

用MsgBox（），如果选择正确，显示信息“Very Good!请继续！”，错误则显示“Sorry,你选错了！正确答案是3，请继续努力。”

操作步骤：双击单选框进入VBA，在编辑窗口中完成以下操作。 A. 在编辑窗口中找到如下两条语句： Private Sub OptionButton3_Click() End Sub

然后在上面这两条语句中间插入以下语句：

If OptionButton3.Value=True Then ex=MsgBox(\请继续努力。\ B. 同理，找到如下两条语句：

Private Sub OptionButton1_Click() End Sub

在这两条语句中间插入语句：

If OptionButton1.Value=True Then ex=MsgBox（\正确答案是3 ，请继续努力。\） C. 找到如下两条语句

Private Sub OptionButton2_Click() End Sub

在这两条语句中间插入语句

If OptionButton2.Value=True Then ex=MsgBox（\正确答案是 3，请继续努力。\） 说明：ex为自定义变量 （2）方法二

在幻灯片合适的地方插入一标签，修改其Caption属性为空，其他设置同方法一，只要把正确选项中的“then”后的语名改为“label2.caption=\请继续！\”，错误选项的改为“label2.caption=\正确答案是3 ，请继续努力。\”即可。 4． 重新选择命令按钮

在幻灯片适当的地方插入一命令按钮，修改其Caption属性为“重新选择”，在编辑窗口中的Private Sub CommandButton1_Click()和End Sub语句间插入： OptionButton1.Value = False OptionButton2.Value = False OptionButton3.Value = False

Label2.Caption =\如判断正误用的是方法一，此语句不要） 5． 下一题命令按钮

在幻灯片适当地方插入一命令按钮，修改其Caption属性为“下一题”，在编辑窗口中的Private Sub CommandButton1_Click()和End Sub语句间插入

If MsgBox(\是否继续\“下一题”)=vbYes Then With SlideShowWindows(1).View .GotoSlide 2

End With（2为第2张幻灯片，此语句表示转到第2张幻灯片） End if

如果要根据条件的不同转到不同的幻灯片，可用下面语句： if 条件 then

With SlideShowWindows(1).View .GotoSlide 2 End With End if

说明：条件可以是Caption属性或value属性，书写方法为：控件名称（在VBA中的名称）.属性=（value属性为True或False，Caption属性为具体文本，注意文本要加双引号），例如下面的语句： if optionbutton1.value=true then

表示如果单选框1的value值为True，那么运行then后的语句，一直到end if。 判断题的制作

所有的设置与单选题类似，只不过是设计两个选项“√”和“×”，这两个符号可先在Word中插入，然后再复制过来。

Office系列办公软件现在可谓是家喻户晓了，不过对于大多数朋友来说可能经常做的只是用它来编辑文本、设计表格而已，白白浪费了Office许多附带的功能，其实熟练运用这些功能可以为我们的工作

带来不少方便。我们就以Office 2000为例来发掘发掘这些实用的Office附带功能吧。 1. 英汉互译不用愁

E文基础不好的朋友遇上不会的英语单词通常的做法都是通过金山词霸之类的翻译软件来应付，若手头一时没有这类软件也不必惊慌，因为Word中已内置了一款英汉小词典(如图1)，需要时从Word的“工具菜单→语言→词典”中启动它，在出现的对话框中将“所装词典”设为“英语(美国)/中文(中国)”，在“查阅”栏中键入要翻译的英文单词后“替换为所译内容”栏即会自动翻译出它的中文意思；相应的将“所装词典”项设为“中文(中国)/英语(美国)”后就可实现汉译英的功能。另外需要说明一下，要使用这项功能在安装Office时需采取“典型安装”，若是自定义安装则“Office工具→中文语言工具”下的“汉英双向翻译词典”要被选中。 2. 学学E文同义词

记得读小学时老师总要求我们填一些中文词语的同义词，现在都流行学英语了，要查一些E文单词的同义词在Word中可就方便了：从“工具菜单→语言→同义词库”中启动这个小工具(如图2)，在插入栏中键入英语单词后回车、相应的同义词语就出来了。要安装这项功能需在“Office工具→语言工具(英语)→同义词库”中安装。 3. 自动检查拼写和语法

Word中对整篇文档提供词语拼写和语法检查的功能。若Word工具菜单的“拼写和语法”为灰色则需要先从Office安装程序的“Office工具→语言工具(英语)”中来安装它，随后可打开一篇文档(中文或英文均可)，单击工具菜单的“拼写和语法”命令即出现拼写和语法功能窗口，“输入错误或特殊语法”栏中绿色文字即为此句文字可能存在拼写或语法错误的文字(如图3)，直接在框中修改即可。 4. 文档文件随便移，字体字样保不变

有时用Word编辑的文档采用了许多美观的第三方字体，复制到别的电脑中以后字体字样都变了，这是因为那台电脑上没安装对应的字体，而Word本身已提供了保持汉字字体不变的功能，只是我们没有用到而已：打开“工具”菜单的“选项”命令，在“保存”选项卡中勾选“嵌入TrueType字体”或在保存文档时将文档保存类型设为RTF格式即可。 5. 初学者的贤内助：Office助手

在Office软件中附带了Office助手这款小工具，这个功能在老鸟们看来可能不值一提，可对于初学者来说确实比较有用，首先在Office安装程序中选择“Office工具→Office助手”项安装这个工具，使用时点击Word帮助菜单的“显示Office助手”命令、屏幕右下角就出现小助手的图标了，用鼠标左键单击它就可从出现的帮助栏中查看相关的帮助信息，还可手动输入要查阅的关键字进行搜索查看(如图4)，用鼠标右键单击小助手后则可以从“选择助手”项来选择别的助手样式，选“动画效果”项来令小助手为你舞上一曲。不用它时还可以点“隐藏”项来退出它。 6. 编辑图片也在行

普通用户在处理图片时一般只对图片进行亮度调整及对比度、尺寸剪裁等基本操作，而Office组件本身就附带了一款功能不错的图片编辑软件——Microsoft Photo Editor，安装Office时采取的是“典型安装”的话它会被自动安装，用时从Windows“开始”菜单中选择“Microsoft Office工具→Microsoft Photo Editor”启动它，用它可方便地对图片进行格式转换、尺寸调整、旋转、调整亮度及对比度的操作，操作界面简单直观、还提供了扫描仪接口，而且软件的“效果”菜单中还有许多类似Photoshop中的滤镜效果可供选择??

Office所附带的众多功能当然不止这些，比如安装Office时安装了“转换器和过滤器”下的“文本转换器”和“图形过滤器”组件的话还可使Office能方便导入大多数文档格式和图形格式的文件。在此我们只是想抛砖引玉，希望大家都发掘更多的Office附带功能，为咱们的工作带来更多便利。 《利用OLE功能实现数据的动态更新》一文介绍了利用OLE功能实现数据动态更新的方法，相信对各位一定有所帮助。文中举了一个制作“某校中文系的学生出勤情况统计表”的例子，在这个例子中作者把“中文系学生出勤情况统计表”放在了Excel中，而把要上报的“中文系学生出勤情况汇总

表”放在了Word中，然后利用OLE功能实现Word中数据的动态更新。 在这个例子中作者虽然利用OLE功能实现了数据的动态更新，提高了工作效率。但每一次修改Excel中的数据后，还要运行Word来打印上报材料，比较麻烦。其实针对这类情况，如果换种思路就可以无需运行Word，在Excel中就能很方便地实现出勤情况的统计和汇总表的上报。 ■ 实现思路

因为在Excel中就能实现单元格中数据的动态更新，所以我们只需在Excel文档中建立两个工作表，分别取名为“出勤统计表”和“汇总表”。把要进行数据输入与统计的“学生出勤情况统计表”建在“出勤统计表”工作表中（如图1），而把作为上报材料的“学生出勤情况汇总表”建在“汇总表”工作表中（如图2）。然后把“学生出勤情况汇总表”与“学生出勤情况统计表”中的有关表格进行链接，就可实现数据的动态更新了。

如果上报材料除了此汇总表以外还有许多其他文字，只需在“汇总表”工作表中插入OLE Word对象即可，这样我们在“出勤统计表”工作表中输入数据进行统计后，马上就可在“汇总表”中打印上报材料，而无需运动Word了。 ■ 数据统计的动态更新

其实，实现单元格中数据的动态更新就是把要实现数据动态更新的单元格与源数据单元格进行链接，链接方法以“汇总表”中“汉语言”专业的出勤率为例：

1. 打开“出勤统计表”工作表，激活“汉语言”专业的出勤率单元格H5，进行复制。

2. 打开“汇总表”工作表，激活“汉语言”专业的出勤率单元格B3，单击[粘贴]按钮，这时粘贴入单元格里的数据会无效。我们只要单击单元格旁边的“粘贴”图标，选择“链接单元格”（如图3）。这时函数编辑框中显示为“=出勤统计表!$H$5”，说明此单元格已与“出勤统计表”工作表中的H5单元格进行了链接。 ■ 数据的上报

如果需要上报的“汇总表”中还需输入许多其他文字，如何在“汇总表”工作表中插入OLE Word对象呢？这里的OLE Word对象实际就是嵌入在Excel工作表中的Word文档，它可弥补Excel对文字处理能力的不足。方法很简单，首先单击菜单中“插入/对象”命令。然后在弹出的“对象”对话框中的“新建”选项卡里的“对象类型”栏中选择“Micrsoft Word 文档”，单击[确定]按钮（如图4）。最后只需在插入的OLE Word对象中对文字进行输入并编辑，方法与在Word中一样。