Voila,
ce code parcours toutes les feuilles du fichier Excel ouvert, et exporte tous les graphiques au chemin choisi.
Source / Exemple :
Sub ExportGraph()
' Déclaration des variables
Dim Sheets As Variant
Dim NomSheet As String
Dim Graph As Variant
Dim NomGraph As String
Dim Fich As String
Dim i As Byte
' Boucle parcourant les feuilles
For Each Sheets In ActiveWorkbook.Sheets
NomSheet = Sheets.Name
' On ecrit dans la boite de message le nom de la feuille
MsgBox NomSheet
' On parcours les graphiques de la feuille
For Each Graph In Sheets.ChartObjects
i = i + 1
' Selection d'un graphique
Sheets.ChartObjects(i).Activate
NomGraph = ActiveChart.Name
' On affiche le nom du graphique exporté
MsgBox NomGraph
' Chemin où l'on veut exporter les graphiques
Fich = "c:/Chemin/"
' On lance la procédure d'export
ActiveChart.Export Filename:=Fich & NomGraph & ".gif", FilterName:="GIF"
Next
Next
End Sub
Conclusion :
On peut choisir le format de l'image : au lieu de mettre .gif/GIF, on peut mettre .jpg/JPEG.
Ce sont les deux seuls que je connait et qui réussisse.
N'hésiter pas a approfondir les connaissances de cette source!!
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.