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