当您尝试导出 Access 2007年中 MicrosoftGraph 对象编程错误信息： " "

时间：2007-05-18 08:00:06 作者：officeba 【认证】

症状

当您尝试导出在 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 产品中存在问题。

更多信息

步骤来重现问题

启动 Access 2007年。

Microsoft Office 按钮 , 依次新建。

单击空白数据库，在文件名框中, 键入 DatabaseName ，然后单击创建。

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

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

Microsoft Office 按钮 , 依次保存。

类型 tabSales 表名称中, 框，然后单击 " 确定 " 。

注意当您单击确定 , 您可以创建一个主键。

视图组, 中单击数据表视图, 并在 CategoryName 和 ProductSales 字段然后键入下列值：

CategoryName	ProductSales
饮料	45000
condiments	15000
生成	65000
seafood	33000

在创建菜单上, 单击窗体设计窗体组中。

设计菜单, 上控件组, 中 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 。

注意出现该问题是 " 症状 " 部分中讨论。