MENU
知の森へ
  1. ホーム
  2. VBAノート
  3. エクセルで作ったグラフをPowerPointに貼り付けよう【VBA】

エクセルで作ったグラフをPowerPointに貼り付けよう【VBA】

VBAノート
目次

経緯

エクセルでグラフを作りました。それをPowerPointに貼れたら、便利だなと思い、

今回、勉強しました。

コード

まずコードです。フォルダにテンプレの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")

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

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

    ' ファイルの保存
    ppPres.Save

    ' オブジェクトの解放
    Set ppSlide = Nothing
    Set ppPres = Nothing
    ppApp.Quit
    Set ppApp = Nothing
End Sub

という感じでできました。

場所とかグラフのサイズなど決めれたりもするので、そのうちやっていこうと思います。

参考になれば、幸いです。

ここまで読んでいただきありがとうございました。

スクールの紹介

最後に宣伝をさせてください。

夢見るAIエンジニアへ、今こそ一歩を踏み出せ！

最近、AI技術やデータサイエンスに興味を持ち始めたあなた。将来、AIエンジニアやデータサイエンティストとして活躍したいと考えているかもしれません。また、AIを使って業務課題や研究課題を解決したい、あるいは教養としてAIの知識を深めたいと思っている方もいるでしょう。

しかし、学び始めるとなると「どこから手をつけて良いのか分からない」「専門的すぎて理解できない」といった悩みが生じることも。そんなあなたのために、この3ヶ月間集中してAIプログラミングを習得するオンラインコーチングサービスがオススメです！

なぜこのサービスが選ばれるのか？その理由はこちら

  1. 初心者から上級者まで
    完全なプログラミング初心者から研究者まで、幅広い方々に優良なコンテンツが提供されます。
  2. 徹底的な進捗管理
    受講者の進捗をしっかりとチェックし、つまずきやすいポイントでのフォローが万全です。
  3. 専属メンターによる徹底サポート
    AIの学び方から、実際の適用まで、専属のメンターが手厚くサポートします。
  4. 場所を選ばず学べるオンライン完結
    東京以外の地域からも、気軽に学び始めることができます。

信頼の実績多数！
・日本最大級のプログラミングスクール実績
・受講者総数700名以上
・SaaS型学習サービス会員65,000名以上
・企業導入実績120社以上
・グッドデザイン賞受賞
・著名な賞受賞歴や経団連加盟も実現

夢を叶えるための第一歩を、一緒に踏み出しませんか？今なら、あなたもその一員として学び始めることができます！

VBAノート
VBA
よかったらシェアしてね！
  • URLをコピーしました！
  • URLをコピーしました！

この記事を書いた人

morishuheiのアバター morishuhei

私が勉強したこと、実践したこと、してることを書いているブログです。
主に資産運用について書いていたのですが、
最近はプログラミングに興味があるので、今はそればっかりです。

関連記事

目次