使用 VBA 将 Excel 中的图表嵌入到 Powerpoint 中的指定占位符中

Posted 2023-02-25

【中文标题】使用 VBA 将 Excel 中的图表嵌入到 Powerpoint 中的指定占位符中

【英文标题】：Embedding a chart from Excel in a specified placeholder in Powerpoint using VBA

【发布时间】：2015-01-26 16:38:02

【问题描述】：

我正在尝试将 Excel 电子表格中的图表复制到 Powerpoint 演示文稿中。我已经有一个单独的例程，可以打开 PPT 并导航到相关幻灯片。

在幻灯片 (2) 上，我有一个占位符（形状 3），我想在其中嵌入我的图表，并保留 Excel 的链接。

当我运行代码时，在执行的最后一行出现错误：“运行时错误'438'：对象不支持此属性或方法”。

代码如下：

Sub MoveExcelObjectsToPresentation()

Set PPTapp = GetObject(, "PowerPoint.Application")

Set PPTpres = PPTapp.ActivePresentation

Dim waterfallChart As Chart

ActiveSheet.ChartObjects("Chart 8").Activate
ActiveChart.ChartArea.Copy

PPTpres.Slides(2).Shapes(3).PasteSpecial '(DataType:=ppPasteOLEObject, Link:=msoTrue)


End Sub

谢谢！！

【问题讨论】：

使用 www.pptxbuilder.com，它会为你做这些。

【参考方案1】：

我仍然不知道最后一行代码的问题是什么，但是如果我将最后一行替换为以下代码，则代码可以正常工作：

With PPTpres
    .Slides(2).Shapes(8).Select
    .Windows(1).View.PasteSpecial (ppPasteMetaFile)
End With