PPT与Excel完美结合做练习.docxVIP

PPT 与 Excel 完美结合做练习 在 PPT 中，利用 VBA 能够轻松调取 Excel 中的数据， 通过一张幻灯片就可以做若干习题。 在课堂上，许多老师都是用 PPT 进行课堂练习。一般情况 下，有多少道练习题就用多少张幻灯片。这样的做法存一 个弊端：就是要想将幻灯片中的试题修改成统一的字体或 字号，需要一张一张地去修改。如果试题所用的幻灯片少 了，这样的方法还行；但是，试想一下，有几十道、上百 道练习题，如果要一张一张地修改，那实在是一件很麻烦、 很费神的事。 今天，小编告诉你一个非常行之有效的方法：就是将你所 需要的若干试题存放在一个 Excel 工作表中，然后在 PPT 中 利用 VBA 读取 Excel 工作表中的数据到幻灯片中，这样只需 要一张幻灯片就可以练习若干道习题了。要修改的话，只 需要修改这一张幻灯片中的文本框就可以了。如果你想知 道这种方法是怎么实现的，就请跟我来吧！ 1 准备工作表和幻灯片 这个过程主要是准备好存放试题的 Excel 工作表和显示试题 的幻灯片。 首先，准备好一个 Excel 文件，在 Sheet1 工作表中存放好 所需要试题，并将这个 Excel 文件和 PPT 文件放在同一文件 夹中。然后，打开 PowerPoint 2003，插入一张空白幻灯片。 在这张幻灯片中先插入两个文本框，它们的作用一个是用 于存放试题题目，一个用于存放正确答案（在存放试题题 目的文本框中可先输入一个提示性语句，在存放正确答案 的文本框中可先输入一个空格）（图 1）。图 1 最后，选择 “幻灯片放映→动作按钮”菜单，在幻灯片的合适位置插入 5 个动作按钮。可右击相应的动作按钮为它们添加相应的文 字（图 2）。图 22 添加 VBA 代码 这个过程主要是编写控制 Excel 工作表和 PPT 幻灯片中文本 框的 VBA 代码。一提到编写代码，你可能就有些犯晕了。 其实，程序代码也没那么神秘，在这里你可先将我的代码 输入或复制到你的文件中，然后看看我给你的解释，一切 就简单多了！ 首先，我们选择“工具→宏→Visual Basic 编辑器”菜单，这时 就会弹出 Microsoft Visual Basic 程序窗口，也就是 VBA 的 编辑器。选择“插入→模块”菜单，这时在右侧可以看到空白 的代码编辑区域，我们可以尝试着输入图中代码（图 3）。 图 3 看着这些代码，你有些摸不着头脑了吧！没关系，你 看看我给你解释解释，你就豁然开朗了。 在上述代码中，首先用 Public 定义了 xlApp、xlBook、xlSheet、i 这 4 个变量，前 3 个是用来控制 Excel 工作表的，i 是用来表示当前 Excel 工作表中的行数的。 然后，用了 5 个“Sub…End Sub”定义了 5 个事件过程，VBA 中的事件都是放在 Sub 和 End Sub 之间的，每个过程都有 一个相应的名字，如打开题库（）、下一题（）等等。现在 我们来说明一下“打开题库（）”这个过程： Set xlApp = CreateObject(Excel.Application)是用来建立一 个 Excel 控件；xlApp.Visible = False 表示这个控件不可见， 即隐藏 Excel，不让它显示在当前窗口； Set xlBook = xlApp.Workbooks.Open(CurDir() + \book1.xls) 表示让 Excel 打开名字为 book1.xls 的文件，CurDir()表示当 前目录。 Set xlSheet = xlBook.Worksheets(1) 表示把控制工作簿中的 第 1 个工作表即 Sheet1 的权限赋给 xlSheet。 ActivePresentation 表示当前激活的演示文稿。 .Slides(1)表示演示文稿中的第 1 张幻灯片，.Shapes(1)表示 幻灯片中的第 1 个文本框。 TextFrame.TextRange.Text 则表示文本框中的文本。我们把 它们连接起来即 ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange. Text 表示当前演示文稿中第 1 张幻灯片中第 1 个文本框的 内容。 xlSheet.Range(a i)表示 Sheet1 中单元格的值，现在 i=3，就获取了 A3 单元格的值。 Replace 函数的作用是替换，Chr(10)代表换行符，Chr(13)代 表回车符，Replace(xlSheet.Range(b i), Chr(10), Chr(13)) 就表示把 B3 单元格中的换行符替换成回车符。 “”这个符号起到连接的作用，可用来强制连接不同类型的 值