excel - 如何将Excel中的图表复制到Word中？

Question

我正在运行一个脚本来自动化我们的一些报告工作。

我们从警报系统中获取数据，并将其复制到包含图表的 Excel 工作表中。

然后我们将图表从 Excel 工作表复制到 Word 文档。

这并不难，除非您想到我们每月为大约 50 台服务器做这件事。

我已经能够自动将数据转储到包含图表的 Excel 电子表格中并更新图表。我无法将图表从 Excel 复制并粘贴到 Word:

$xl = new-object -comobject excel.application 
$xl.Visible = $true

$wb = $xl.workbooks.open("C:\blah\Servername_graph.xlsx")
$ws = $wb.worksheets.item(1)
$charts = $ws.ChartObjects()
$chart = $charts.Item(1)
$a = $chart.copy

$wd = new-object -comobject Word.application
$wd.visible = $true
$path = "C:\blah\doc.docx"
$doc = $wd.documents.open($path)

正如您从代码中看到的，我正在打开 Excel 工作表，选择图表并复制它。我正在打开文档，但不确定如何粘贴它。

Answer 1

像这样:

$wd.Selection.Paste()

要将图表粘贴为图片，请使用 PasteSpecial方法:

$default = [Type]::Missing
$wd.Selection.PasteSpecial($default, $default, $default, $default, 9, $default, $default)