携自动功能之利，通过 Access 使用 PowerPoint 演示文稿.pdfVIP

携自动功能之利，通过 Access 使用 PowerPoint 演示文稿 本页内容 简介 从 Access 数据创建 PowerPoint 演示文稿 利用自动功能在窗体中显示 PowerPoint 演示文稿 小结 简介 最近，一位 Office 客户询问了下面的问题：我每周都要利用 Microsoft Office Access 的数据， 手动创建 Microsoft Office PowerPoint 幻灯片。有什么方法可以让我将这项任务自动化？唔， 目前的答案是，您不能将数据直接从Access 导出到 PowerPoint。但是，您可以根据需要和期 望来编写 Microsoft Visual Basic for Applications (VBA) 代码，从而简化该任务。 本文探讨两种在 Access 和 PowerPoint 之间的交互方法。第一个示例描述如何利用自动功能使 用 Access 表的数据来创建 PowerPoint 演示文稿。第二个示例说明，同样利用自动功如何在 Access 窗体中显示和操纵现有的 PowerPoint 演示文稿。通过操纵受控应用程序的公开属性和 方法并响应事件，自动功能使您能够从不同的应用程序来控制一个应用程序。 返回页首 从 Access 数据创建 PowerPoint 演示文稿 本示例通过 Access 数据创建一个幻灯演示文稿。Recordset 对象由表中的数据创建。然后，使 用记录集中的数据填充幻灯片。 要创建幻灯片，请执行以下步骤： 1. 启动 Access 并打开任一数据库。 2. 在“设计”视图中，创建以下带有所示控件的窗体，使其不依赖于任何表或查询： Form: CreateFromAccessData Caption: PowerPoint Demo Command Button: cmdPowerPoint  Name: cmdPowerPoint  Caption: PowerPoint Example  Width: 2 3. 在View 菜单上，单击Code 。 4. 在Tools 菜单上，单击References。 5. 在Available References 框中，单击Microsoft PowerPoint 9.0 Object Library 和Microsoft Office 9.0 Object Library。 6. 单击OK 关闭References 对话框。 7. 将下面的代码行添加到 General Declarations 部分： Option Explicit 8. 键入或粘贴以下过程： 9. Sub cmdPowerPoint_Click() 10. Dim db As Database, rs As Recordset 11. Dim ppObj As PowerPoint.Application 12. Dim ppPres As PowerPoint.Presentation 13. 14. On Error GoTo err_cmdOLEPowerPoint 15. 16. Open up a recordset on the Employees table. 17. Set db = CurrentDb 18. Set rs = db.OpenRecordset(Employees, dbOpenDynaset) 19. 20. Open up an instance of Powerpoint. 21. Set ppObj = New PowerPoint.Application 22. Set ppPres = ppObj.Presentations.Add 23. 24. Setup the set of slides and populate them with data from the 25. set of records. 26. With ppPres 27. While Not rs.EOF 28. With .Slides.Add(rs.AbsolutePosition + 1, ppLayoutTitle)