ExcelVBAでWord上の図をコピーし、Excelに貼り付け

■ このスレッドは過去ログ倉庫に格納されています

0001デフォルトの名無しさん

2008/01/27(日) 13:44:39

ExcelVBAでWord上の図をコピーし、Excelに貼り付けようと試みているのですが、
下記ソースではコピーできておりませんでした。
ご教授していただきたく思います。

どうか、よろしくお願いいたします。

環境は
Windows2000
Office2000
※Dドライブ直下にtest.docという図のみ貼り付けた
ファイルを用意しております。

ソース↓
Dim objWord As Object

Set objWord = CreateObject("Word.Application")

objWord.Visible = True

objWord.documents.Open ("D:\test.doc")

objWord.documents.Item(1).Select

Selection.Copy

ThisWorkbook.ActiveSheet.Paste

objWord.documents.Close

objWord.Visible = False

Set objWord = Nothing

0003デフォルトの名無しさん

2008/01/27(日) 18:10:59

>>1
そのコードで出来ないのは変。
ウィルスかなんか入って環境おかしくなってるんだよ。

0004デフォルトの名無しさん

2008/01/27(日) 20:28:04

Selection.copyではどうやら、Wordの図はコピーできてないみたいでした。

■ このスレッドは過去ログ倉庫に格納されています