Exportation de diagrammes d'accès au format d'image?

Question

J'ai créé un graphique dans les formulaires Access et l'ai exporté en format Image. C'est facile à faire, mais le problème vient quand après, quand je ferme le formulaire, il affiche un message pop-up.

« L'opération sur l'objet graphique a échoué.
Le serveur OLE ne peut pas être enregistré.
Pour enregistrer le serveur OLE, réinstaller. »

Je l'ai fait un changement et le code ressemble à:

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 

maintenant, le problème est que, après l'exportation se fait, le tableau devient mauvais, les polices étaient grandes et condensés et les barres avaient l'air court ...

Je suis vraiment coincé ..

Answer 1

Après avoir essayé plusieurs solutions de contournement, je trouve à peu près la même question et une solution appropriée au problème:

• Essayez de déverrouiller le graphique avant l'exportation, et restaurer la serrure après

'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 

• Important: n'oubliez pas de définir l'action acOLEClose pour éviter le plantage du serveur OLE.

Vous n'êtes pas seul — J'ai eu le même problème. Sur plusieurs exécutions du formulaire, après l'exécution de l'exportation, le graphique/graphe/OLEFrame est devenu incorrect (sur le formulaire View), son format a été modifié et je ne savais pas pourquoi.