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

时间:2015-01-26 16:38:03

标签: excel vba 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

谢谢!

1 个答案:

答案 0 :(得分:0)

我仍然不知道最后一行代码的问题是什么,但如果我用以下内容替换最后一行代码,代码可以正常工作:

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