Экспорт графиков доступа в формат изображения?

Question

Я создал диаграмму в формах доступа и экспортировал ее в формат изображения. Это легко сделать, но проблема возникает, когда после нее, когда я закрываю форму, отображается всплывающее сообщение.

"Операция над объектом 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

• Важно: не забудьте установить действие acOLEClose, чтобы избежать сбоя сервера OLE.

Вы не одиноки - у меня была такая же проблема. В нескольких запусках формы после выполнения экспорта диаграмма / график / OLEFrame становилась неправильной (в представлении формы), менялся ее формат, и я не знал, почему.