Excel2007のVBAで、セル範囲を指定し
Excel2007のVBAで、セル範囲を指定して画像として保存したいです。
たとえば、
Worksheets("Sheet1").Range("A1:B10").CopyPicture xlScreen, xlBitmap
Worksheets("Sheet2").Paste
とすれば、別のシートに指定した範囲を画像にすることはでき、
さらにこれを、
With ActiveWorkbook.PublishObjects.Add(xlSourceSheet, "C:\test.html", _
"Sheet2", "", xlHtmlStatic, "image", "")
.Publish (True)
.AutoRepublish = False
End With
とすれば、画像を指定した場所に保存することはできると思います。
ただ、これだと無駄な処理をしているような気がしますし、実際時間も数秒必要です。
これが、グラフだと
Worksheets("Sheet1").ChartObjects("グラフ1").Chart.Export Filename:="C:\graph.gif", FilterName:="gif"
のように簡単に、しかも短時間で出来ます。
できれば、上記グラフのように、指定したSheetの指定したセル範囲を画像として指定した場所にPNGにて保存したいです。
どなたかご教授いただければ幸いです。
お礼
ご回答を参考に保存機能を製作したいと思います。 先日に引き続きお世話になってしまいました。ありがとうございます