Bonjour,
je sollicite votre aide pour automatiser une tâche répétitive.
Je dispose d'un segment qui me permet de faire varier l'affichage de graphiques.
J'ai une macro avec clic-bouton qui me permet d'exporter le graphique que j'affiche.
Donc la tâche répétitive est : je sélectionne un objet --> j'exporte le graphique, je sélectionne l'objet suivant --> j'exporte le graphique, ...
Comment faire une boucle pour exporter tous les objets de mon segment les uns après les autres ?
Ma macro d'export est celle-ci :
Sub export_image_de_plage()
Set Source = Range("A21:J53")
Source.CopyPicture xlScreen, xlPicture
Set gr = Sheets(1).ChartObjects.Add(0, 0, Source.Width, Source.Height)
gr.Chart.Paste
gr.Chart.Export "Z:\chemin\" & Range("B3") & ".jpg", "JPG"
gr.Delete
End Sub
D'avance merci pour votre aide.
Oliv