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

因此，在挖掘之后，我找到了一些帮助来找到将图表从Excel导出到Powerpoint的代码，问题在于它只是选择了一个对象。使用VBA将图表从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已经打开）。

来源

2017-06-14 Junker

你究竟想要做什么？

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

来源

2017-06-14 11:42:16 James

嗨，不，excel中的图表会根据变量和用户输入进行更新。因此，某个值会更改图表配置和输出以及缩略图。我想要做的是将整个图表（和其中的任何内容）以.png/.jpeg等格式导出到PowerPoint幻灯片中。我一直在看其他脚本，并且我似乎得到了我无法诊断的错误消息，但是使用这个脚本，它得到了图表的一部分，只有一个元素，但不是全部。容克 – Junker

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

回答

相关问题