我正在尝试将图表从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
谢谢!
答案 0 :(得分:0)
我仍然不知道最后一行代码的问题是什么,但如果我用以下内容替换最后一行代码,代码可以正常工作:
With PPTpres
.Slides(2).Shapes(8).Select
.Windows(1).View.PasteSpecial (ppPasteMetaFile)
End With