vb.net - 导出 Access 图像格式的图表？

Question

我在 Access 表单中创建了一个图表并以图像格式导出它。这很容易完成，但是当我关闭表单时，问题就来了，它显示了一条弹出消息。

"The operation on the Chart object failed.
The OLE server may not be registered.
To register the OLE server, reinstall it. "

然后我做了一些更改，代码如下所示:

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 上)，它的格式发生了变化，我不知道为什么。