logo标签列表

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

vbaexcel
3
我将尝试捕获一组单元格的图像，这个图像可以保存，或者粘贴到同一个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表格一起带过来）。
有什么建议吗？
1个回答
8
这似乎是有效的：
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
网页内容由stack overflow 提供, 点击上面的
可以查看英文原文，
原文链接