すぐに役立つエクセルVBAマクロ集 - Excel VBA Macro Collection

　　すぐに役立つエクセルVBAマクロ集 - すぐマク

Excel VBA Macro
FAQ

500連発・組み方講座フォロー

Big Color Pallet

[広告]

Excel VBA Macro

Excel DownLoad

Excel VBA Macro　・　その他　・　FAQ

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

Ｑuestion 6.3　その他

Excelでつくった一つのブックの中で存在する複数のグラフを一つずつ抽出して、gif や bmp 形式に落とす方法を知っていますか？
コピー＆ペーストではなくて、自動化したいのですがどうすればよろしいのでしょうか？？
gif や bmp 形式で落としたら、Wordを用いて貼り付けたいのですが、100程度あるのでコピー＆ペーストでは無理なのです。

Ａnswer　　

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メソッドなどの事例が見れます。参考になるかも知れません。