Export chart -> gif (problème)

Version imprimable

Bonjour,
J'ai un code vba qui me génère un graphique sur une nouvelle feuille excel.
Dans l'explorateur vba, je la vois sous la forme d'un "chart".
Je voudrais maintenant exporter ce graphique sous la forme d'un gif...

J'ai essayé les méthodes décrites sur internet, mais j'ai un problème dès la ligne qui suit... pour le reste de mon programme, j'ai toujours fait référence au graphique en faisant "Thisworkbook.Chart("Visualization")...
Code:

1 2 3 4 5 6 Set chartVisualization= ActiveSheet.ChartObjects(1) ' ??? strChartFileName = Application.GetSaveAsFilename("visualization.jpg", "jpg file (chart) (*.jpg),*.jpg", , "export graph") If (strChartFileName <> False) Then chartVisualization.Export Filename:=strChartFileName, FilterName:="GIF" End If

22/07/2007, 09h05
SilkyRoad

bonjour

Quel est le message d'erreur ?
Comment as tu déclaré la variable chartVisualization ?
Il s'agit d'un onglet graphique ou d'un graphique incorporé dans la feuille de calcul ?

michel
22/07/2007, 15h38
primax

C'est un onglet graphique. Et non pas un graph inclus dans une feuille.

Le message bin c'est une erreur de compilation. Le truc de dire que mon onglet c'est un object excel chart ne semble pas marcher...

Comment je peux donc faire pour sauvegarder cet onglet chart en gif?

rebonjour

tu peux utiliser

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim strChartFileName As Variant
Dim chartVisualization As Chart
 
Set chartVisualization = ThisWorkbook.Charts("Graph1")
'ou
'Set chartVisualization = ThisWorkbook.Charts(1)
 
strChartFileName = _
    Application.GetSaveAsFilename("visualization.jpg", _
    "jpg file (chart) (*.jpg),*.jpg", , "export graph")
 
If (strChartFileName <> False) Then
    chartVisualization.Export _
        Filename:=strChartFileName, FilterName:="GIF"
End If

michel

23/07/2007, 11h44
primax

Ca marche comme ça, super, merci!
Bon bien sur, ya une erreur dans le filtre que j'avais tapé pour le getsavefile... Tout devrait être en .gif...

Merci encore