Conversion d'un graphique en un fichier image(.gif

[Dorob28]

Bonjour aux membres;

La procédure ci-jointe me permet d'exporter un graphique dans un fichier image.
Problème : les valeurs les plus élevées sur l'axe des abscisses sont manquantes.
Comment éviter ce tronquage des données.
J'ai pensé qu'en réduisant le format du graphique à 90% de ce qu'il est au départ avant son exportation, je résoudrai mon problème.
Pour cela, j'ai tenté d'utiliser les propriétés 'Shapes'; 'ScaleWidth'; 'Width'.
Je ne m'en sorts pas.
Si quelqu'un peut a la solution, je suis preneur

A l'avance merci
Private Sub ExporteGraphe()
Sheets('Graphe_de_la_selection').Select
ActiveChart.Export _
Filename:='C:\\Documents and settings\\utilisateur\\Mes Documents\\Graphe_de_la_selection.gif', filtername:='GIF'
End Sub

 

[pierrejean]

bonjour dorob

un petit fichier exemple (sans les données confidentielles) serait le bienvenu

 

[PierreJean]

Bonjour Pierrejean

Ma 1ière réponse à votre message n'a pas été faite par le biais du forum.
Je découvre Internet et une de ces applications que sont les forums.
Je vous remercie à nouveau pour l'intêret que vous portez à mon problème et pour vous facilitez la tâche, vous trouverez ci-joint le claseur xls qui vous permettra de faire des test.
Merci encore

 

[Dorob28]

Bonjour Pierrejean

Ma 1ière réponse à votre message n'a pas été faite par le biais du forum.
Je découvre Internet et une de ces applications que sont les forums.
Je vous remercie à nouveau pour l'intêret que vous portez à mon problème et pour vous facilitez la tâche, vous trouverez ci-joint le claseur xls qui vous permettra de faire des test.
Merci encore