埋め込みグラフをgifファイルで保存する

今日は，埋め込みグラフをgifファイルで保存する方法を書きます．これは，Webでエクセルファイルを公開したい場合に重宝しています．タスクとかで埋め込みグラフをgifファイルで吐き出すマクロを実行すればリアルタイムに最新グラフを吐き出すことができるのでとてもよいです．

【事例】
Sub gif_save()
ActiveSheet.ChartObjects(1).Chart.Export "c:\temp\test.gif"
End Sub

【注意点】
ChartObjects(1)の1はグラフの番号を記入します(そのうちこの辺の番号の取得方法などもやっていきたいと思ってますが…できるか？)．また，hoge.gifとなっているところをjpgとするとjpgとして保存されるようです．対応しているのは，このほかtifにも対応しているようです(拡張子の部分を変えるだけでOKのようです．とっても便利．)．