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")
今後の拡張アイデア
今回のコードは、あくまで「貼り付ける」までを目的としたものです。
今後は以下のような処理も加えることで、より実用性が高まります。
- グラフのサイズや位置の指定（例：左端から100pt、幅を10cmに設定）
- 「図」として貼り付ける（
PasteSpecial）ことで、編集不可な状態にする - 複数スライドに複数グラフを自動配置する処理
- 保存ファイル名に日付をつけるなどの自動命名
まとめ
VBAを使えば、ExcelのグラフをPowerPointに貼り付ける作業を自動化することが可能です。
- グラフを手動でコピー＆ペーストする手間を省略
- テンプレートを活用すれば、書式やデザインの統一も実現
- スライド作成作業の大幅な効率化につながる
プレゼン資料や定型レポートの自動作成にも活用できる非常に便利なテクニックです。
副業から独立まで「稼げる」Webスキルを習得する（PR）
ここまで読んでいただきありがとうございます。 最後に宣伝をさせてください。
「副業を始めたいが、何から手をつければいいかわからない」「独学でスキルはついたが、収益化できていない」という悩みを持つ方には、マンツーマン指導のWebスクール**「メイカラ」**が適しています。
このスクールは、単に技術を教えるだけでなく、**「副業として具体的にどう稼ぐか」**という実務直結のノウハウ提供に特化している点が特徴です。
講師陣は、実際に「副業Webライターから1年で独立して月収100万円」を達成したプロや、現役で利益を出し続けているブロガーなど、確かな実績を持つプレイヤーのみで構成されています。そのため、机上の空論ではない、現場で通用する戦術を学ぶことができます。
副業に特化した強み
- 最短ルートの提示: 未経験からでも実績を出せるよう、マンツーマンで指導。
- AI活用の習得: 副業の時間対効果を最大化するための、正しいAI活用スキルも網羅。
- 案件獲得のチャンス: 運営がWebマーケティング会社であるため、実力次第で社内案件の紹介など、仕事に直結する可能性があります。
受講者の多くは、「在宅でできる仕事を探している」「副業を頑張りたい」という20代・30代・40代が中心です。
受講前には、講師による無料説明が行われます。無理な勧誘はなく、自分に合った副業スタイルやプランを相談できるため、まずは話を聞いてみることから始めてみてはいかがでしょうか。
