EXCELのグラフをgifファイルに出力するマクロ

　EXCELでテキストファイルを読み込んでグラフを作るのは何度かやったことがあったけれど、それをWebで使えるようにgifファイルに変換するとかできるんだろうか？
　マクロでhtmlファイルを出力する方式にした方が良いかとか考えていたのだけれど、簡単な方法でグラフを画像ファイルに出力することができるようだ。
　たとえばこんな感じ。

Sub outgif(OutName As String)
Dim n As Integer       'n番目のカウンターで使用
Dim strFNAME As String 'ファイル名
'グラフの枚数分処理を行う
For n = 1 To ActiveSheet.ChartObjects.Count
'ファイル名を作る
strFNAME = ThisWorkbook.Path & "\" & OutName & "-" & n & ".gif"
'.Exportでgif出力
ActiveSheet.ChartObjects(n).Activate
ActiveChart.Export (strFNAME)
Next n
End Sub

　シートにあるすべてのグラフを、gifファイルに変換して、適当な名前＋番号で出力するマクロ。
　これならばシートごとに名前を変えることも可能。