当前位置：Gxlcms > mysql > 当您尝试导出Access2007年中MicrosoftGraph对象编程错误信息

当您尝试导出Access2007年中MicrosoftGraph对象编程错误信息

时间：2021-07-01 10:21:17 帮助过：51人阅读

症状当您尝试导出在 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 ，然后单击创建。

在创建菜单上, 表组中单击 " 表设计 " 然后创建下表：

域名	数据类型
CategoryName	文本
ProductSales	货币

5. Microsoft Office 按钮 , 依次保存。

6. 类型 tabSales 表名称中, 框，然后单击 " 确定 " 。注意当您单击确定 , 您可以创建一个主键。

视图组, 中单击数据表视图, 并在 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对象编程错误信息

人气教程排行