使用 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。