Question

我在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

现在问题是导出完成后，图表变坏了，字体很大并且浓缩了，酒吧看起来很短......

我真的被卡住了..

Answer 1

在尝试了各种变通方法后，我发现了几乎相同的问题，并找到了解决问题的正确方法：

尝试在导出前解锁图表，然后恢复锁定

'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上），其格式发生了变化，我不知道原因。

导出图像格式访问图表？

1 个答案: