导出图像格式访问图表？

我在Access窗体中创建了一个图表并将其导出为图像格式。这很容易完成，但问题出现时，当我关闭表单时，它显示一条弹出消息。导出图像格式访问图表？

“Chart对象上操作失败。
OLE服务器可能未注册。
要注册OLE服务器，重新安装它。”

然后我做了一些变化，代码如下：

Private Sub Command1_Click()  
    Dim grpApp As Graph.Chart 

    Set grpApp = Me.Graph1.Object  
    grpApp.Export "C:\Graph1.jpg", "JPEG"  
    Me.Graph1.Enabled = True  
    Me.Graph1.Locked = False  
    Set grpApp = Nothing  
    Me.Graph1.Action = acOLEClose  
End Sub

现在的问题是，出口完成后，图表变差，字体是大和冷凝，酒吧看着短...

我真的卡住..

来源

2009-08-11 Ashok Gupta

尝试不同的解决方法后，我发现几乎同样的问题，针对该问题的妥善解决：

尝试导出之前解锁图形，并恢复锁事后

'Unlock the control... 
Me!YourOLEChart.Locked = False 
Me!YourOLEChart.Enabled = True 

'Do the actual export... 
Set oleGrf = Me!YourOLEChart.Object 
oleGrf.Export filename, "JPEG" 
Set oleGrf = Nothing 
Me!YourOLEChart.Action = acOLEClose 

'Restore the lock... 
Me!YourOLEChart.Locked = True 
Me!YourOLEChart.Enabled = False

重要提示：请记住设置Action acOLEClose以避免OLE服务器崩溃。

你并不孤单—我有同样的问题。在表单的几次运行中，在导出执行后，图表/图形/ OLEFrame变得错误（在窗体View上），其格式发生了变化，我不知道为什么。

来源

2014-06-11 18:58:45

导出图像格式访问图表？

回答

相关问题