使用Python从Excel到PowerPoint的图表

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了使用Python从Excel到PowerPoint的图表，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含1956字，纯文字阅读大概需要3分钟。

内容图文

我有一个使用优秀的“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()

内容总结

以上是互联网集市为您收集整理的使用Python从Excel到PowerPoint的图表全部内容，希望文章能够帮你解决使用Python从Excel到PowerPoint的图表所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端