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