'「グラフ1」という名前のグラフをアクティブブックと同じパスに「graph.gif」というファイル名で保存します。 Sub Sample39() ActiveSheet.ChartObjects("グラフ 1").Chart.Export ActiveWorkbook.Path & "\graph.gif" End Sub