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

Question

所以经过一些挖掘后，我得到了一些帮助，找到一个代码将图表从Excel导出到Powerpoint，问题是它只是选择一个对象。

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

它选择的对象是较大图表内的图表/ vlookup图像结果（对象本身被命名）所以基本上它只获得项目本身的一小部分。

问题是我在选择项目时出错了？此外，我想知道如何修改此代码以添加到现有的Powerpoint（假设现有的Powerpoint已经打开）。

Answer 1

你究竟想做什么？

如果您只想显示基于excel工作簿内容进行更新的图表，则可以简单地复制图表，并在两者之间创建链接。当您的演示文稿和工作簿都打开时，它将自动更新图表而无需VBA。