Segment et export image

Y compris Power BI, Power Query et toute autre question en lien avec Excel
O
Oliv38
Membre habitué
Membre habitué
Messages : 112
Inscrit le : 4 janvier 2012
Version d'Excel : 2000 FR

Message par Oliv38 » 28 juin 2018, 15:03

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
  • Sujets similaires
    Réponses
    Vues
    Dernier message