自动将excel的单元格内容、图片、图表内容替换更新到PPT

beetle1985 · 发表于 2016-9-20 11:08

本帖最后由 beetle1985 于 2016-9-20 11:10 编辑

主题诉求：自动化PPT报表，通过一键将excel的单元格内容、图片、图表内容替换更新到PPT中去。具体内容将附件。
目前已经实现：一键将excel的单元格内容替换到PPT的文本框中去；
还未实现的功能：1、将excel的图片内容（已经命名为图片1）替换更新PPT对应的图片（已经命名为图片1）；
2、将excel的图表内容（已经命名为图表1）替换更新PPT对应的图表（已经命名为图表1）。

Sub PPT报告数据更新()
Dim objPPT As Object
Dim objPrs As Object
Dim objChart As Object
Application.ScreenUpdating = False
Set objPPT = CreateObject("Powerpoint.application")
Set objPrs = objPPT.presentations.Open(ThisWorkbook.Path & "\季度度经营分析报告.pptx", , , msoFalse)
'将单元格C19的内容替换到PPT标题框1
objPrs.Slides(1).Shapes("标题框1").TextFrame.TextRange.Text = Worksheets("表1").Range("C19").Value
objPrs.Save
objPrs.Close
objPPT.Quit
Application.ScreenUpdating = True
Set objPPT = Nothing
Set objPrs = Nothing
MsgBox "PPT报告数据更新完毕!"
End Sub

复制代码

beetle1985 · 发表于 2016-9-20 12:00

自己顶一下！

beetle1985 · 发表于 2016-9-20 21:55

自己再顶一下！

13925099527 · 发表于 2016-9-20 22:48

帮忙顶一下，我也想学这个技能

beetle1985 · 发表于 2016-9-21 11:26

13925099527 发表于 2016-9-20 22:48
帮忙顶一下，我也想学这个技能

没有大神回复，唉！！！！！！！！！！

13925099527 · 发表于 2016-9-21 14:47

beetle1985 发表于 2016-9-21 11:26
没有大神回复，唉！！！！！！！！！！

我下个月也要面对ppt，希望能看到大神的指点，我们也一起交流下提高工作效率

meisha · 发表于 2017-3-16 16:54

太牛了，剩下两步不知道哪位高手帮忙解答一下。谢谢啦！

lleong · 发表于 2017-4-10 16:40

求教楼主，更改文字部分，如果PPT是文本框，要把excel中的序列填充进去，那可以实现吗

meisha · 发表于 2017-9-22 09:38

同求。顶一下，希望能有大神看到。

419837499 · 发表于 2018-11-14 10:37

同求帮顶! 希望能有大能看到并帮忙!

		自动登录	找回密码
密码			免费注册

[求助] 自动将excel的单元格内容、图片、图表内容替换更新到PPT