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

Question

我正在 try catch 一系列细胞的图像。该图像可以保存，也可以粘贴到同一个 Excel 文档中、粘贴到 Word 文档中等。我只需要从一组单元格生成图像。

我以为我已经通过复制并粘贴到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