Discussion :

[primax]

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 :

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

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

[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

[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?

[SilkyRoad]

rebonjour


tu peux utiliser

Code :

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

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

[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