如何从Excel文件自动创建幻灯片？

Question

关于Excel / PowerPoint中幻灯片自动化的快速提问。

以下是设置：

• 每个月，我都需要填写PowerPoint
• 其中，我有30个国家/地区的5个幻灯片。在每张幻灯片上，有1到3个图表
• 我使用Excel中的数据透视表中的数据来填充这些图表并希望自动化该过程

我已经做过的事情：

• VBA中从数据透视表中提取数据的自动化已经完成，此方一切正常

需要做什么：

• 从PowerPoint
中相应图表内的Excel文件中复制/粘贴数据

我想要做的是：

• 将数据直接复制粘贴到图表中，但它是否可能？
• 在Excel文件中创建一个图表并将其复制粘贴到PowerPoint中（它不能是图片，图表背后的数据必须是可访问的）

您认为最简单的方法是什么？

非常感谢您的支持！

编辑：我在Mac上，不知道VBA / Office会有所不同，但它是......

Answer 1

我会选择第二种选择。 由于您已经执行了数据透视表的自动化，因此可能会导致您编写所需内容。
注意：如评论所示，您需要添加Microsoft Power Point的引用才能使用以下内容：

Dim PPInstance As PowerPoint.Application
Dim PPSlide As PowerPoint.Slide
Dim SlideShow As PowerPoint.Presentation
    For Each SlideShow In PPInstance.Presentations
    On Error GoTo Err01PowerPoint_Select
    Set PPInstance = GetObject(, "Powerpoint.Application")
    If SlideShow.Name = "DesiredValue" Then '1. If SlideShow.Name = "DesiredValue"
    For Each PPSlide In SlideShow.Slides
    ' paste and select the chart picture
     ActiveSheet.ChartObjects(YourChartObjectInExcel).Copy
     Application.Wait Now + TimeValue("00:00:01")
     'It may lost itself
     .Shapes.Paste
     Application.CutCopyMode = False
     'align the chart
     'you can definetly align and set the size you desire for the chart in PP, however, I didn't manage to make it work, you may want to search for it
     'PPInstance.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True
     'PPInstance.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True
    Next PPSlide
    Exit For
    Next SlideShow
    If 1 = 2 Then '99.if error
    Err01PowerPoint_Select:
    MsgBox "No Powerpoint presentations are opened!", vbCritical
    End If '99.if error 

Answer 2

试试这个

• 在excel中复制演示文稿中所需的单元格

• 回到电源点并做一个过去特殊的＆＃34; （主页标签＆gt;过去下拉＆gt;过去特殊或Cntrl+Alt+V）。

  • 选择

这应该将链接表插入幻灯片

当您想要更新

时

转到：file＆gt;信息

然后选择

从右下角

接下来做这个

这应该这样做

希望它可以帮到你

Answer 3

您希望在MS Office应用程序，Excel和Powerpoint之间自动执行。 Microsoft以编程方式使用术语，因此Programatically excel to powerpoint的Web搜索应该可以帮助您入门。您可以将VBA添加到搜索中。