エクセルのグラフを図(png等)で保存する方法です。
目次
サンプルコード ・pngやjpeg
- 保存形式:png
- 図の保存先:F:¥sample
グラフオブジェクトの場合
グラフがデータのあるシートにある場合の方法です。
Sub sample1() Dim fName As String fName = "F:\sample\" & "\test.png" Worksheets("Sheet1").ChartObjects(1).Chart.Export _ Filename:=fName, filtername:="PNG" End Sub
jpegで保存する場合は、「png」の個所を「jpeg」に変更します。
グラフシートの場合
グラフがデータのあるシートではなく、グラフのみのシートにある場合の方法です。
Sub sample2() Dim fName As String fName = "F:\sample\" & "\test.png" Charts(1).Export Filename:=fName, filtername:="PNG" End Sub
jpegで保存する場合は、「png」の個所を「jpeg」に変更します。
グラフシートが複数ある場合、左側のグラフシートを選択します。2番目のグラフシートは「Charts(2)」です。
「Charts(1)」の他の書き方
- Charts("グラフ1")
- Sheets("グラフ1")
d.docs.live.netに接続しています、と表示される場合
デスクトップ等にエクセルブックを保存していて、パスを「 ThisWorkbook.Path 」にし、マクロを実行すると以下のような画面「d.docs.live.netに接続しています」が表示される場合。
保存先がローカルではなく、インターネット上のためこのような画面が表示されます。 「 ThisWorkbook.Path 」 にしたい場合は、エクセルブックの保存先をサーバーや外付けハードディスク等に変更します。
サンプルコード ・PDF
PDF保存の場合です。
Sub sample3() Dim fName As String fName = "F:\sample\" & "\test.pdf" Charts(1).ExportAsFixedFormat Type:=xlTypePDF, Filename:=fName End Sub