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

Question

我正在尝试捕捉一系列细胞的图像.这个图像既可以保存,也可以粘贴到同一个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

当我运行它时,它似乎工作.但是粘贴在word中的对象实际上是一个电子表格对象,就像一个图元文件.(因此它将数据与其一起作为嵌入式Excel工作表).

有什么建议？

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