イメージフォーマットへのアクセスのチャートのエクスポート？

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 

0123をロックを復元

• 重要：ACOLECloseアクションを設定して、OLEサーバーがクラッシュしないようにしてください。

あなたは一人ではありません—私は同じ問題がありました。フォームのいくつかの実行では、エクスポートの実行後、チャート/グラフ/ OLEFrameが間違っていました（フォームのビューで）、そのフォーマットが変更されました。