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

我正在尝试将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

---

谢谢

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

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

---

使用www.pptxbuilder.com，它会为您完成此任务。