Copier un graphe au format GIF

Parfois, vous pouvez avoir envie d’enregistrer un graphe en format GIF, par exemple pour le retoucher ensuite avec l’aide d’un logiciel de dessin.

La macro publiée ci-dessous vous permet d’automatiser le processus de la sauvegarde d’un graphe sous la forme d’une image GIF. Je l’ai trouvée dans Raj Excel : http://rajexcel.blogspot.fr/

Sub Graphe_en_GIF()

    Dim sFileName As String

    sFileName = ThisWorkbook.Path & "\" & ActiveChart.Name & ".gif"

    ActiveChart.Export Filename:=sFileName, FilterName:="GIF"

End Sub

Si vous voulez en savoir plus sur la méthode Export, vous pouvez consulter :

http://support.microsoft.com/?kbid=163103

Cet article fait référence à Excel 97, mais ses conseils sont encore valables avec les versions plus récentes d’Excel.

Si vous voulez développer une macro avec des réglages plus évolués, par exemple avec un choix du format graphique à utiliser, vous pouvez aussi consulter l’article suivant de Jon Peltier :

http://peltiertech.com/WordPress/enhanced-export-chart-procedure/