复制Excel单元格并粘贴到Word中作为图像

我正在尝试捕捉一系列单元格的图像。 这个图像既可以保存，也可以粘贴到同一个excel文档中，粘贴到word文档中等。我只需要从一组单元格中生成图像。

我以为我已经明白了这一点：

Dim objWord, objDoc As Object ActiveWindow.View = xlNormalView Range("A1:B45").Select Selection.Copy Set objWord = CreateObject("Word.Application") Set objDoc = objWord.Documents.Add objWord.Visible = True objWord.Selection.PasteSpecial Link:=False, DataType:=wdPasteMetafilePicture, _ Placement:=wdInLine, DisplayAsIcon:=False objWord.Selection.TypeParagraph 

当我运行这个，似乎工作。 但是粘贴在单词中的对象实际上是一个电子表格对象，就像一个图元文件。 （所以它将数据作为一个embedded式Excel表单）。

有什么build议么？

Answer 1

这似乎工作：

 Sub luxation() Dim objWord, objDoc As Object ActiveWindow.View = xlNormalView Range("A1:B45").Select Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture Set objWord = CreateObject("Word.Application") Set objDoc = objWord.Documents.Add objWord.Visible = True objWord.Selection.Paste objWord.Selection.TypeParagraph End Sub