excel - 将另一个工作簿中的图表作为图像插入 Word 文档

Question

我有一个启用宏的 Excel 2010 工作簿（“Pilote.xlsm”），它试图读入多个 Excel 工作簿（“Ex01.xlsx”、“Ex02.xlsx”、...）并复制一个图表（“目标”）进入 Word 文档，同时保持相同的方向（“纵向”）。

似乎不可能按照我尝试的方式做到这一点。代码示例如下：

Function BasicWrite()
Dim MonWB As Workbook
Set wrdApp = CreateObject("Word.Application")
Set ExcelApp = New Excel.Application
Set wrdDoc = wrdApp.Documents.Add()
Set monWB = ExcelApp.Workbooks.Open("C:\foo\Ex01.xlsx")

wrdApp.Visible = True

wrdApp.Selection.TypeText Text:="VBA"
wrdApp.Selection.TypeParagraph

monWB.Activate
monWB.Charts("Target").CopyPicture

wrdApp.Selection.Paste

monWB.Close
End Function

这会导致在 Word 文档中复制正确的图表，尽管在“横向”（宽度 > 高度）中，而原始图表是“纵向”（高度 > 宽度）。此更改弄乱了图表上的一些重要标签。

当我将图表直接从宏工作簿（“Pilote.xlsm”）复制到 Word 文档中时，不会发生此方向问题。它似乎是从外部（“Ex01.xlsx”）工作簿复制的工件。我未能在文档中找到有关此主题的任何信息。

任何帮助，将不胜感激。

标签： excelvbams-word