エクセルグラフを図（png・jpeg等）として保存またはPDF保存する

2021-06-14

エクセルのグラフを図（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