☰

如何将 Excel 中的图像放入 Microsoft Word 中？

tag-icon • tag-icon microsoft-excel microsoft-word hyperlink jpeg mail-merge
如何将 Excel 中的图像放入 Microsoft Word 中？

我的 Excel 文件中有 10 个图片链接，Microsoft Word 文档中有 10 页。我希望 Microsoft Word 文档从文件中导入每个图片.xls并将其放置在.doc文件中的指定位置。

关于如何做到这一点有什么建议吗？我知道 perl/python 脚本可以，但我想知道 Microsoft Office 中是否存在更用户友好的选项。谢谢！

答案1

我已经在 Excel 中使用此 VB 宏代码将 29 个图表从一张 Excel 表复制到 Word 文档。

如果您有图像而不是图表，则需要更改行：

ActiveSheet.ChartObjects(i).Activate
ActiveChart.ChartArea.Copy

选择并复制您拥有的数据类型。

Sub copycharts()

Dim word As Object
Dim doc As Object
On Error Resume Next

Set word = GetObject(, "word.application") 'gives error 429 if Word is not open
If Err = 429 Then
   Set word = CreateObject("word.application") 'creates a Word application
   Err.Clear
End If

With word
   .Visible = True
   .Documents.Add
End With

Sheets("charts").Select
i = 29
Do While i > 0
   ActiveSheet.ChartObjects(i).Activate
   ActiveChart.ChartArea.Copy
   With word.Selection
    'Paste Chart
   .Range.PasteSpecial Link:=False, DataType:=14, Placement:=wdInLine, _
       DisplayAsIcon:=False
   End With
i = i - 1
Loop
End Sub

相关内容