【VBA】Excelで作成したグラフをPowerPointに自動で貼り付ける方法

2023年12月15日2025年12月22日

Excelで作成したグラフをPowerPointの資料に貼り付けたいとき、毎回手作業でコピー＆ペーストするのは手間ですよね。
今回は、VBAを使ってExcelからPowerPointへグラフを自動で貼り付ける方法を学びましたので、実際のコードと手順をご紹介いたします。

実現したいこと

Excelにある既存のグラフを、VBAを使ってPowerPointに貼り付ける
テンプレートとなるPowerPointファイルを読み込み、その1枚目のスライドに貼り付け
将来的には、貼り付けたグラフのサイズや位置も制御予定

使用したVBAコード

以下が、Excel VBAからPowerPointへグラフを貼り付けるための基本的なコードです。

Sub ExportGraphToPowerPoint()
    Dim ppApp As Object
    Dim ppPres As Object
    Dim ppSlide As Object
    Dim ChartObj As ChartObject

    ' PowerPointアプリケーションを起動
    Set ppApp = CreateObject("PowerPoint.Application")
    ppApp.Visible = True

    ' PowerPointのテンプレートを開く
    Set ppPres = ppApp.Presentations.Open("テンプレファイルがあるPATH") ' 例: "C:\Users\...\テンプレ.pptx"

    ' Excel側のグラフをコピー
    Set ChartObj = ThisWorkbook.Sheets("シート名").ChartObjects("グラフ名")
    ChartObj.Copy

    ' PowerPointの1枚目のスライドに貼り付け
    Set ppSlide = ppPres.Slides(1)
    ppSlide.Shapes.Paste

    ' PowerPointファイルを保存
    ppPres.Save

    ' 使用したオブジェクトを解放
    Set ppSlide = Nothing
    Set ppPres = Nothing
    ppApp.Quit
    Set ppApp = Nothing
End Sub

補足ポイント

"テンプレファイルがあるPATH" の部分には、実際のファイルパスを入力してください
例："C:\Users\user\Documents\テンプレ.pptx"
"シート名" はグラフがあるExcelのシート名、"グラフ名" はそのグラフオブジェクトの名前です
例：Sheets("分析").ChartObjects("SalesChart")