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

PC関連

 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ファイルに変換して、適当な名前+番号で出力するマクロ。
 これならばシートごとに名前を変えることも可能。

サクラキャンドル

 都内在住。理系高校理系大学を経て、電機関係の会社でリーマンやってます。
 仕事内容とサイトの内容はほとんど関係がなく、趣味の延長線上でいろいろと紹介します。

サクラキャンドルをフォローする
スポンサーリンク
農場主の日常

コメント

タイトルとURLをコピーしました