Bonjour,
Je me sers de cette excellente procédure de JW pour récupérer tous les graphs d'une feuille en image gif, qui se sauvegardent dans le fichier en cours.
Je les récupère ensuite pour les coller dans un doc ppt.
Mes désirs : pensez-vous qu'il est possible d'ajouter une ligne ou deux de codes, pour que :
a) je puisse en un seul clique lui demander de me récupèrer
d'un seul coup TOUS les graphs de mon classeur (soit (8 feuilles * 3 graphs) + (10 feuilles *1 graph= 34)
b) avec boite de dialogue pour selectionner de quelle page à quelle page je désire récupérer en image gif et sauvegarder.
???? A l'avance un grand merci
voici la procédure de :
Sub SauveGraphiqueAuFormatGif2() 'JW
Dim ChtObj As ChartObject
Dim Counter As Long
For Each ChtObj In ActiveSheet.ChartObjects
With ChtObj
.Chart.Export .Parent.Name & " " & .Name & ".gif", "GIF"
End With
Counter = Counter + 1
Next ChtObj
MsgBox Counter & " graphiques sauvegardés dans " & CurDir
End Sub
Y a pas le feu, je ferme la shop et je reprendrais lundi.
Bon week à tout le monde.