如何用VBA将EXCEL数据导入到PPT中

szzc

wudixin96 发表于 2015-7-3 13:46
图表有一个copy方法的，版本高一点的，还是有copypicture方法。

可以把图片复制到剪贴板，再回到PPT， ...

思路我知道的，但是就老是报错。能给些具体的建议吗 ？非常感谢

Sub addgraph()
Dim xlApp As Object
Dim xlWBK As Object
Dim xlSht As Object
Dim pres As Object
Dim ppt As Object

Set xlApp = CreateObject("Excel.Application")
Set xlWBK = xlApp.Workbooks.Open("C:\Users\XXX\Desktop\" & "XXX.xlsm")
Set xlSht = xlWBK.Worksheets(2)

With xlWBK
With xlSht
Sheets("sheet1").Activate
ActiveSheet.Shapes.Range(Array("Picture 1")).Select
Selection.Copy
ActiveWindow.View.Paste
End With
End With
Set xlWBK = Nothing
Set xlSht = Nothing
Set xlApp = Nothing
End Sub

lleong

求把excel数据导出PPT的vba代码。那如果PPT是表格，需要把excel的数据一一对应填进表格怎么破？

lleong

szzc 发表于 2015-6-5 13:46
谢谢，PPT上写VBA确实更容易，已完成数据导入的代码。请问，您知道怎么复制幻灯片再粘贴吗？（在PPT vba  ...

求代码，怎么在PPT上写VBA完成数据导入？

ranger丶亦

收藏学了一下，正在弄excel与PPT的交互

maplecorn

wudixin96 发表于 2015-5-27 13:57
一般个人是建议用PPT里写VBA，去调用EXCEL。

你好，我看了你回复的一个贴子excle和ppt交互的回答，然后我有个从excle复制图表到PPT的需求，可以有偿，能回复下嘛。

楚雪飘扬

maplecorn 发表于 2022-10-11 19:13
你好，我看了你回复的一个贴子excle和ppt交互的回答，然后我有个从excle复制图表到PPT的需求，可以有偿， ...

你的EXCEL数据，是图表格式还是？