exporter graphiques en gif ou jpg

Sub aa()
Dim CH As Chart
'---
For Each CH In ThisWorkbook.Charts

  '### AU CHOIX ###
  '--- Exporte en format .jpg ---
  CH.Export Filename:=ThisWorkbook.Path & "\" & CH.Name & ".jpg", FilterName:="jpg"
  '--- Exporte en format .gif ---
  CH.Export Filename:=ThisWorkbook.Path & "\" & CH.Name & ".gif", FilterName:="gif"
  '--- Exporte en format .png ---
  CH.Export Filename:=ThisWorkbook.Path & "\" & CH.Name & ".png", FilterName:="png"
  '################
  
Next CH
End Sub