三流君VBA:Excelのグラフをgifへ変換 .Exportメソッド使用
の
ActiveChart.Export ("C:\samp.gif")
ExcelグラフをGIFにできたので
少し、テストして遊んでみます。
テスト結果の動画
www.youtube.com
【VBA】Excelグラフを ActiveChart.Export で GIFに変換出力 【三流君】 - YouTube
テスト1.単体テストでGIFが作成されることを確認
Sub test028_1() 'ブックを新規に作成 Workbooks.Add '適当なデータをセット Range("A2").Value = "東京" Randomize '乱数初期化 Range("A2").Value = "東京": Range("B2").Value = Int(Rnd * 100 + 1) Range("A3").Value = "神奈川": Range("B3").Value = Int(Rnd * 100 + 1) Range("A4").Value = "埼玉": Range("B4").Value = Int(Rnd * 100 + 1) Range("A5").Value = "千葉": Range("B5").Value = Int(Rnd * 100 + 1) 'グラフを追加、、マクロ記録で作成したコードをコピー Charts.Add ActiveChart.ChartType = xlColumnClustered ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A2:B5") ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1" 'グラフをGIFファイルで保存 ActiveChart.Export ("d:\test028.gif") '↑VBAでGIFに保存できるので、それなりに使えるかも End Sub
テスト2.テンプレート・ひな形 グラフの作成と保存ボタン
名前を テンプレ として、
グラフを作成、
GIFを出力するボタンを作成
Sub GIF_Export() '名前がテンプレのグラフを選択する ActiveSheet.ChartObjects("テンプレ").Select '選択されたグラフをGIFファイルで出力する ActiveChart.Export ("d:\" & Range("A2").Value & ".gif") '↑セル A2 を ファイル名の一部として使用してみた MsgBox "終了" End Sub
テスト3.テキストボックスと図をグラフに追加してみる
ア.テキストボックスを追加して、セル参照してみる。
イ.他の画像ファイルを埋め込む
テスト結果の動画※冒頭の動画と一緒です
【VBA】Excelグラフを ActiveChart.Export で GIFに変換出力 【三流君】 - YouTube
www.youtube.com