こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

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

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

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

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

投稿日時 - 2010-11-08 15:54:31

QNo.6305452

すぐに回答ほしいです

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

ANo.1

質問者の補足を要求します。私が出来なくても、他の読者・回答者のためにも。
>WORDのテキストボックスに
Wordの文書ではない?。
テキストボックスは文字=テキストしか入らないのでは?
ーー
>マクロの記録」を行っても
マクロの記録は他アプリへの操作の記録はまず出来ないのは常識。
ーー
エクセルの複数のグラフの在り方はどうなってますか?
同一シートのオブジェクトとして?
新しいGraphシートに?
操作の最後に聞いてくるでしょう。
ーーー
操作で1つのグラフは文書に貼り付けられますか?
ーー
>カンニングできません どういう意味ですか。カーニング?
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
その他?
ーー
全般に、普通はしない難しいことをしていると思うので、回答が遅れるのだろう。

投稿日時 - 2010-11-08 21:17:53

補足

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

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

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

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

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

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

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
...

投稿日時 - 2010-11-09 09:44:52

あなたにオススメの質問