Convertir un graphique en image GIF

**biyano** · 20/02/2008, 16h22

Bonjour,

J'utilise sans problème la fonction Export d'Excel 2003 pour convertir les graphiques en images GIF. Mais je ne trouve pas la fonction équivalente en Access 2003.

Quelqu'un peut m'aider ?

Voici l'exemple de la fonction export tiré de l'aide Excel :

Cet exemple montre comment exporter le graphique 1 sous la forme d'un fichier GIF.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Worksheets("Sheet1").ChartObjects(1) _
.Chart.Export _
    FileName:="current_sales.gif", FilterName:="GIF"

**micniv** · 21/02/2008, 10h28

Bonjour,
voici un code qui marche sous acc2000 ( Xchart2 est mon graphique)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Dim grpApp As Graph.Chart
 
    Set grpApp = Me.xChart2.Object
    grpApp.Export Application.CurrentProject.Path & "\current_sales.gif", FilterName:="GIF"
    Set grpApp = Nothing
    Me.xChart2.Action = acOLEClose  'ligne nécessaire sinon erreur OLE

**biyano** · 21/02/2008, 12h03

Merci beaucoup micniv,

Ta solution a marché à la perfection.

Mais la dernière ligne (Me.xChart2.Action = acOLEClose ) a provoqué une erreur. Je l'ai supprimée et ça marche sans erreur.

Grand merci.