我有一个使用优秀的“xlsxwriter”模块创建的excel工作簿.在这本工作簿中,大约有200个嵌入式图表.我现在正试图将所有这些图表导出到几个功率点演示中.理想情况下,我希望保留原始格式和嵌入数据,而无需链接到外部Excel工作簿.

我相信使用VBA可以做到这一点.但是,我想知道是否有办法使用Python来做到这一点.有没有办法将xlsxwriter图表对象放入powerpoint？

我查看了python-pptx,找不到任何关于从excel工作簿中获取图表或数据系列的信息.

任何帮助表示赞赏！

解决方法:

花了几个小时尝试不同的东西后,我找到了解决这个问题的方法.希望它能帮助别人节省一些时间.以下代码将所有图表从“workbook_with_charts.xlsx”复制到“Final_PowerPoint.pptx”.

出于某种原因,我还没理解,从CMD终端运行这个Python程序时效果更好.如果您尝试多次运行,有时会发生故障,即使第一次运行通常没问题.

另一个问题是,在第五行中,如果使用“presentation = PowerPoint.Presentations.Add(False)”生成False,则它不适用于Microsoft Office 2013,即使“True”和“False”仍然可以使用Microsoft Office 2010.

如果有人能够澄清这两个问题,那将会很棒.

# importing the necessary libraries
import win32com.client
from win32com.client import constants

PowerPoint=win32com.client.Dispatch("PowerPoint.Application")
Excel=win32com.client.Dispatch("Excel.Application")


presentation=PowerPoint.Presentations.Add(True)
workbook=Excel.Workbooks.Open(Filename="C:\\.........\\workbook_with_charts.xlsx",ReadOnly=1,UpdateLinks=False)

for ws in workbook.Worksheets:
    for chart in ws.ChartObjects():
    # Copying all the charts from excel
        chart.Activate()
        chart.Copy()  

        Slide=presentation.Slides.Add(presentation.Slides.Count+1,constants.ppLayoutBlank)
        Slide.Shapes.PasteSpecial(constants.ppPasteShape)

    # WE are going to make the title of slide the same chart title
    # This is optional 
    textbox=Slide.Shapes.AddTextbox(1,100,100,200,300)
    textbox.TextFrame.TextRange.Text=str(chart.Chart.ChartTitle.Text)

presentation.SaveAs("C:\\...........\\Final_PowerPoint.pptx")
presentation.Close()
workbook.Close()

print 'Charts Finished Copying to Powerpoint Presentation'

Excel.Quit()
PowerPoint.Quit()