Discussion :

[Soraphiroth]

Bonjour à vous,

Je viens cette fois ci vous demander de l'aide concernant l'export de graphique en image.

j'utilise la méthode .Export afin d'enregistrer mes graph' et elle fonctionne bien. Malheureusement, je suis amené à un moment à créer un tableau très large, que je transforme en image et que j'exporte. A ce moment la méthode crashe.

Voici la commande exacte :

Code :

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

1
2
3
4
5
ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart.Export "C:\Temp\TMPGRAPH\Heures " & DONNEESGHEURES.Cells(i, 1).Value & ".gif", "GIF"
'avec :
'selection.width=13071,75
'selection.height=253,5
'DONNEESGHEURES.Cells(i, 1).Value="OFFRES"

Je pense que le soucis vient de la largeur, ce qui motive ma question :
S'agit-il d'un bug ou d'une limitation ? Si c'est une limitation, peut-on la contourner ?

Merci d'avance pour votre aide.

[NVCfrm]

bonjour.

du 100 à l'heure ta ligne de code:

Code :

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

ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart.Export "C:\Temp\TMPGRAPH\Heures " & DONNEESGHEURES.Cells(i, 1).Value & ".gif", "GIF"

2 commandes distinctes sont groupées en une seule commande. C'est comme mâcher une nourriture et articuler un mot. L'un nécessite l'arrêt de l'autre.
Voilà ce que VBA comprend:

Code :

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

1
2
3
 
ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height)
ActiveChart.Export "C:\Temp\TMPGRAPH\Heures " & DONNEESGHEURES.Cells(i, 1).Value & ".gif", "GIF"

[Soraphiroth]

En fait il s'agit d'un with obtenu avec enregistreur que j'ai concaténé

Sinon ayant changé de façon de faire (j'aime bien mon stage, quand je commence à bloquer sur un point, on passe me voir pour me dire qu'en fait ce que je cherche à débugger est inutile de toute façon ) je ne suis plus confronté à ce problème. Néanmoins tout laisse à penser que c'est bien la taille excessive de l'image qui rend VB maboul. Tout les graphiques que je génère jusqu'à maintenant passe sans soucis.

Bref, sujet "clos". Mais j'en ai un autre sous le coude