使用VBA将图表从Excel导出到Powerpoint

因此，经过一番挖掘，我得到了一些帮助，find一个代码，从Excel导出图表到PowerPoint，问题是它只是select一个对象。

Sub ertert() With New PowerPoint.Application With .Presentations.Add With .Slides.Add(1, 12) ActiveSheet.ChartObjects(1).CopyPicture xlPrinter, xlPicture .Shapes.Paste .Shapes(1).Select .Application.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True .Application.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True End With End With End With End Sub 

它所select的对象是一个更大的图表（对象本身被命名）中的图表/查找图像结果，所以基本上只得到该项目本身的一小部分。

问题是我只是select一个项目出错了？ 另外我想知道如何修改这个代码添加到现有的Powerpoint（假设现有的Powerpoint已经打开）。

Answer 1

你到底在做什么？

如果您只是希望显示一个根据您的Excel工作簿的内容进行更新的图表，您可以简单地复制图表，并在两者之间build立链接。 当演示文稿和工作簿都打开时，它将自动更新图表而不需要VBA。