Enregistrer un graphe en JPEG

[Doum]

Bonsoir à Tous

ActiveChart.Export Filename:=Fich & Rang('A2').Value & '.jpg', FilterName:='JPEG'

Dans l'expression ci-dessus, je crée des images JPEG de graphes mais la qualité est médiocre (on voit plein de pixels parasites) je cherche à gérer les paramétres de la compression des données JPEG qui je pense peut être la source de cette perte de qualité.
Merci d'avance.
Doum

 

[Celeda]

Bonjour,

Moi je me sers de cette macro qui marche très bien /

Sub SauveGraphiqueAuFormatGif() '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

essaye et tu nous diras.....

Celeda