Excelで作ったグラフをWordで貼り付けるには?

Question 6.3   Previous Next
Excelでつくった一つのブックの中で存在する複数のグラフを一つずつ抽出して、gif や bmp 形式に落とす方法を知っていますか?
コピー&ペーストではなくて、自動化したいのですがどうすればよろしいのでしょうか??
gif や bmp 形式で落としたら、Wordを用いて貼り付けたいのですが、100程度あるのでコピー&ペーストでは無理なのです。
Answer   Copyright (C) 1998.6.17 永井善王
VBAでグラフをクリップボードにコピーしておいてから、EXCEL側から WORDを起動して貼り付けることになると思いますが、あいにく私は、WORDが好きでないので、実際に使ったことがありません。 下記を参考にしてチャレンジしてみてください。

[Excel97 & Word97の場合]
あなたがもし、「マイクロソフト オフィス97プロ」CD-ROMを利用することが可能なら、Officeフォルダ→Examplesフォルダ→Samples.xlsの 「Officeオートメーション」シートに、「・・ワークシート上のグラフを、Microsoft Word に貼り付けます」の説明がありますから、それを見てください。 ちょっとだけなら ここでも 見れます(マイクロソフトさん許して)

[Excel95 & Word95の場合]
私の手元にEXCELとWORDとのOLEオートメーションを詳しく記載した書 籍がありますが、バージョンが95用のものです。
EXCELは95も97も共通して使えますが、WORDは97以上では使えません。
もしかすると、この書籍もバージョンアップ対応版が出版されているかと 思いますが、はっきり知りません。あなたのEXCELとWORDのバージョンが95なら、文字列と画像(グラフ)の貼り付けの違いを考慮すれば、使えると思います。
一応、その書籍をご紹介しておきますので、図書館にでもあれば見てみてください。
「Microsoft Office VBA 活用ガイド」村田吉徳著、出版社 株式会社技術評論社、H7.9.1 初版、\2400

[他のホームページの紹介]
「VBA便利帳」の「11.他のアプリケーションへデータ変換」に「11-2 ExcelデータをwinWordへ貼り付け」として 掲載されています。
ServiceコーナーLink serviceから行けます。

なお、OLEオートメーションの実例として、QA集の中の 「エクセルのブックをアクセスから開くには」と、MACROの「開始終了」の中の [終了処理] で、 「DDE通信」、SendKeysメソッドなどの事例が見れます。参考になるかも知れません。

 

Excel VBA Macro