首页 文章

VBA：从Excel复制为图像并粘贴到Word中

提问于
浏览 次
0

我正在从Excel中复制一系列单元格作为图片，然后粘贴到word文档中 . 它粘贴在文档的开头，如何将其设置为粘贴到特定区域？该区域可以用我后来找到/替换的一些文字来表示 .

谢谢！

Range("A1:H5").Select
Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture



Set objWord = CreateObject("Word.Application")

Set objDoc = objWord.Documents.Open("MyFile.docx")

objWord.Visible = True

Set objSelection = objWord.Selection

objSelection.Paste


End Sub
excel-vba vba excel

1 回答

  • 0

    我刚遇到同样的问题并使用了以下代码 . 我使用一个名为“here”的书签，它保存在我的Word文档中 . HTH，米奇 .

    Dim WordApp As Word.Application
Dim WordDoc As Word.Document

Set WordApp = New Word.Application
Set WordDoc = WordApp.Documents.Open("MyFile.docx")

Range("A1:H5").Select
Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
WordApp.Visible = True
WordApp.ActiveDocument.Bookmarks("here").Select
Set objSelection = WordApp.Selection
objSelection.Paste
    回复于

相关问题