症状 当您 尝试 导出 在 Microsoft Office Access 2007, MicrosoftGraph 对象 编程 您收到以下 错误 消息： 运行时 错误 1004： 应用程序定义或 对象 定义 错误 。 当您 尝试 关闭 错误 消息, 您收到以下 错误 消息： Chart 对象 上操作失败。 可能未注册 OL
症状
当您 尝试 导出 在 Microsoft Office Access 2007, MicrosoftGraph 对象 编程 您收到以下 错误 消息：
运行时 错误 1004：
应用程序定义或 对象 定义 错误 。
当您 尝试 关闭 错误 消息, 您收到以下 错误 消息：
Chart 对象 上操作失败。
可能未注册 OLE 服务器。
要注册 OLE 服务器, 重新安装它。
收到 错误 消息, 后无法执行下列操作：
• 保存表单 • 在视图中打开窗体替代方法
要解决此问题, 使用下列方法之一。 方法 1： 操作属性设置为 acOLEClose 之后 导出 对象 1. 启动 Access 2007年。 2. Microsoft Office 按钮 , 依次 打开 。 3. 在 打开 对话框, 选择与要, 数据库， 然后单击 打开 。 4. 在 创建 菜单, 单击 数据透视图 。 5. 在 设计 菜单上, 单击 显示/隐藏 组中 字段列表 。 这样可以打开 图表字段列表 列表。 6. 将 CategoryName 从 图表字段列表 移动到 除去此处分类字段 。 7. 将 ProductSales 从 图表字段列表 移动到 除去此处数据字段 。 按类别 注意 图表显示产品销售额的总和。 8. 单击 Microsoft Office 按钮 , 然后单击 关闭 。 9. 另存为 对话框中, 键入 frmPivotChart 表单名称 , 下， 然后单击 确定 。 10. 创建 菜单, 上单击 窗体组 , 中 窗体设计 并将 frmPivotChart 从导航窗格移动到设计器。 注意 此过程创建子窗体。 11. 将命令按钮添加到主窗体, 并将命令按钮的 Name 属性设置为 Command 。 12. 在 设计 菜单, Controls 组, 中单击 按钮 ， 然后单击 Form 2 设计器以窗体上放置 命令 按钮。 13. Command , 右击， 然后单击 属性 。 14. 属性表 对话框中, 单击 事件 选项卡, 然后单击省略号按钮 () 为 On Click 事件。 15. 选择生成器 " 对话框中, 选择 代码生成器 , 然后单击 确定 。 16. 在 VisualBasic 编辑器, 用以下代码替换代码。 Private Sub Command1_Click() Dim grpApp As Graph.Chart Set grpApp = Me.Graph1.Object grpApp.Export "C:Graph1.jpg", "JPEG" Set grpApp = Nothing Me.Graph1.Action = acOLEClose End Sub 17. 在 文件 菜单上, 单击 关闭并返回到 Microsoft Office Access 。 18. 在 保存 对话框中, 单击 是 。 19. 另存为 对话框中, 键入 frmMain 表单名称 , 下， 然后单击 确定 。 20. 在 主 菜单, 单击 Views 组, 中 视图 并单击 窗体视图 。 体出现在数据透视图视图。 21. 在 frmMain 表单, 单击 Command 按钮将透视图 导出 到下列文件：
C:PivotChart1.jpg
22. 在 主 菜单, 单击 Views 组, 中 视图 并单击 设计视图 。 窗体设计视图中打开。 方法 2： 创建数据透视图 对象 而不是图形 对象 对于此方法步骤是作为方法 1, 中除对于步骤 16 步骤相同。要使用此方法, 请按照步骤 1 到 15 方法 1 中。 在步骤 16, 用以下代码替换代码。 Option Compare Database Private Sub Command1_Click() Dim frm As Access.Form Set frm = Me.frmPivotChart.Form frm.ChartSpace.ExportPicture "C:PivotChart1.jpg", "JPEG" End Sub 然后, 执行步骤 17 到 22 方法 1 中。
状态
Microsoft 已确认这是 " 适用于 " 一节中列出 Microsoft 产品中存在问题。
更多 信息
步骤来重现问题 1. 启动 Access 2007年。 2. Microsoft Office 按钮 , 依次 新建 。 3. 单击 空白数据库 ， 在 文件名 框中, 键入 DatabaseName ， 然后单击 创建 。 4. 在 创建 菜单上, 表 组中单击 " 表设计 " 然后创建下表： 域名 数据类型 CategoryName 文本 ProductSales 货币 5. Microsoft Office 按钮 , 依次 保存 。 6. 类型 tabSales 表名称 中, 框， 然后单击 " 确定 " 。 注意 当您单击 确定 , 您可以创建一个主键。 7. 视图 组, 中单击 数据表 视图, 并在 CategoryName 和 ProductSales 字段然后键入下列值： CategoryName ProductSales 饮料 45000 condiments 15000 生成 65000 seafood 33000 8. 在 创建 菜单上, 单击 窗体设计 窗体 组中。 9. 设计 菜单, 上 控件 组, 中 Chart 控件依次 Form 1 设计器。 10. 在 图表向导 对话框中, 单击 下一步 。 注意 Table:tabSales 自动选择下 哪个表或查询是否将用于创建图表 。 11. 在 图表向导 哪个字段包含要用于图表数据 , 下选择 CategoryName 在 " 可用字段 。 12. 单击 > 以 CategoryName 字段用于图表 , 下移动， 然后单击 完成 。 13. 对于 ProductSales 重复步骤 11 和 12。 14. 用鼠标右键单击图表, 然后单击 属性 。 15. 然后单击 Form 1 设计器 设计 菜单, 上 按钮 和 控件 组, 中。 16. 单击 取消 以关闭 命令按钮向导 。 17. 用鼠标右键单击 Command 控件, 然后单击 生成事件 。 18. 在 VisualBasic 编辑器, 用以下代码替换现有代码。 Option Compare Database Private Sub Command1_Click() Dim grpApp As Graph.Chart Set grpApp = Me.Graph0.Object grpApp.Export "C:Graph0.jpg", "JPEG" Set grpApp = Nothing End Sub 19. 在 工具 菜单上, 单击 引用 。 20. 中 引用 - DatabaseName 对话框中, 单击以选中 Microsoft 12.0 MicrosoftGraph 对象 库 , 然后再单击 确定 。 21. 在 文件 菜单上, 单击 关闭并返回到 Microsoft Office Access 。 22. 视图 组, 中 视图 , 依次 窗体视图 。 23. 在 Form 1 , 单击 Command 。 注意 出现该问题是 " 症状 " 部分中讨论。
查看更多关于当您尝试导出Access2007年中MicrosoftGraph对象编程错误信息的详细内容...