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

使用VBA将图表从Excel导出到Powerpoint,vba,excel,powerpoint,Vba,Excel,Powerpoint,所以,经过一番挖掘,我得到了一些帮助,找到了一个代码,可以将图表从Excel导出到Powerpoint,问题是它只是选择了一个对象 Sub ertert() With New PowerPoint.Application With .Presentations.Add With .Slides.Add(1, 12) ActiveSheet.ChartObjects(1).CopyPicture xlPrinter,

所以,经过一番挖掘,我得到了一些帮助,找到了一个代码,可以将图表从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已打开)

你到底想做什么


如果您只是想显示一个根据excel工作簿内容更新的图表,您只需将图表复制到另一个工作簿上,即可在两者之间创建链接。当您的演示文稿和工作簿都打开时,它将自动更新图表,而不需要VBA。

您到底想做什么


如果您只是想显示一个根据excel工作簿内容更新的图表,您只需将图表复制到另一个工作簿上,即可在两者之间创建链接。当您的演示文稿和工作簿都打开时,它将自动更新图表,无需VBA。

您好,否,excel中的图表将根据变量和用户输入进行更新。因此,某个值将更改图表配置和输出以及相关的缩略图。我想做的是将整个图表(以及其中的任何内容)以.png/.jpeg等格式导出到PowerPoint幻灯片中。我一直在看其他脚本,我似乎得到了无法诊断的错误消息,但通过这个脚本,它得到了图表的一部分,只有一个元素,但不是全部。JunkerHi,不,excel中的图表将根据变量和用户输入进行更新。因此,某个值将更改图表配置和输出以及相关的缩略图。我想做的是将整个图表(以及其中的任何内容)以.png/.jpeg等格式导出到PowerPoint幻灯片中。我一直在看其他脚本,我似乎得到了无法诊断的错误消息,但通过这个脚本,它得到了图表的一部分,只有一个元素,但不是全部。容克