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

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

1 个答案: