VBAでEXCELからWORDにグラフをコピー

質問

VBAでEXCELからWORDにグラフをコピー
する方法が分かりません。

EXCELで作成した複数のグラフをWORDのテキストボックスに貼り付けるマクロを組んでいます。
「マクロの記録」を行ってもWORD側の処理がうまくカンニングできません。

処理はEXCEL側で行っています。
PasteSpecialなどを使って試行錯誤したのですがダメでした。
詳しい方がいましたら教えて下さい。

回答No.1

imogasi

質問者の補足を要求します。私が出来なくても、他の読者・回答者のためにも。
>WORDのテキストボックスに
Wordの文書ではない？。
テキストボックスは文字＝テキストしか入らないのでは？
ーー
＞マクロの記録」を行っても
マクロの記録は他アプリへの操作の記録はまず出来ないのは常識。
ーー
エクセルの複数のグラフの在り方はどうなってますか？
同一シートのオブジェクトとして？
新しいGraｐｈシートに？
操作の最後に聞いてくるでしょう。
ーーー
操作で１つのグラフは文書に貼り付けられますか？
ーー
＞カンニングできません　どういう意味ですか。カーニング？
http://www.nbcom.co.jp/PC-Support/FAQ/doc/ht/doc082002ht003.shtml
http://www.weblio.jp/content/%E3%82%AB%E3%83%B3%E3%83%8B%E3%83%B3%E3%82%B0
その他？
ーー
全般に、普通はしない難しいことをしていると思うので、回答が遅れるのだろう。

補足

説明が分かりづらくて申し訳ありませんでした。

>Wordの文書ではない？。
>テキストボックスは文字＝テキストしか入らないのでは？
ワードのテキストボックスとは、ワードの図形描画に出てくる
テキストボックスです。

>エクセルの複数のグラフの在り方はどうなってますか？
>同一シートのオブジェクトとして？
>新しいGraｐｈシートに？
エクセルのグラフは、ChartObjectsの配列で扱います。

>操作で１つのグラフは文書に貼り付けられますか？
クリップボードを介してコピーします。

>どういう意味ですか。カーニング？
エクセルが生成したマクロを覗き見るというつもりで
書きました。誤解を生むような表現でした。

言葉足らずで誤解を生むような質問をしてしまい失礼致しました。
その後、試行錯誤して、なんとか希望通り動くマクロができましたので
参考までにのせておきます。これからも宜しくお願い致します。

Dim wd As Word.Application
Dim dc As Word.Document

Set wd = CreateObject("Word.Application")
wd.Visible = True
Set dc = wd.Documents.Open("ワードのフルパス")
dc.Activate
wd.Selection.GoTo what:=wdGoToPage, which:=wdGoToNext, Count:=1
dc.Shapes.AddTextbox(msoTextOrientationHorizontal,
left, top, width, height).Select
ActiveSheet.ChartObjects(1).Chart.CopyPicture
wd.Selection.Paste
...