找回密码
 立即注册
搜索

如何将EXCEL中的图片批量导入PPT中?

2
回复
497
查看
[复制链接]

16

主题

196

帖子

49

幻币

一流武者

Rank: 3Rank: 3

积分
254
QQ
2016-4-12 13:20:59 显示全部楼层 |阅读模式
利用EXCEL画出线性、条形图等数据分析图片,有时候图片太多,如何批量将这些图片导入PPT中,一张图片占用一张幻灯片
PPT学习论坛
回复

使用道具 举报

18

主题

207

帖子

43

幻币

一流武者

Rank: 3Rank: 3

积分
268
QQ
2016-4-12 15:49:29 显示全部楼层
Public Sub 技巧()
    Dim ws As Worksheet
    Dim pptApp As PowerPoint.Application
    Dim pptPrs As PowerPoint.Presentation
    Dim i As Long
    Dim myppt As String
    myppt = ThisWorkbook.Path & "PowerPoint试验.ppt"
    Set ws = Worksheets(1)    '指定工作表
    ws.ChartObjects(1).Copy    '复制指定的图表
    Set pptApp = New PowerPoint.Application
    pptApp.Visible = True
    Set pptPrs = pptApp.Presentations.Open(myppt)    '打开PowerPoint文档
    With pptPrs    '在文档最后插入一个新幻灯片,并粘贴图表
        .Slides.Add(Index:=.Slides.Count + 1, Layout:=ppLayoutText).Shapes.Paste
        .Save
'        .Close         '设置此语句可关闭创建的文档
    End With
'    pptApp.Quit       '设置此语句可关闭PowerPoint应用程序
    Set ws = Nothing
    Set pptPrs = Nothing
    Set pptApp = Nothing
End Sub
下载我的附件,解压后在该文件所在的文件夹里再建立一个名为:PowerPoint试验.ppt  
这是一个图片的方法,其他的你自己改吧
PPT学习论坛
回复 支持 反对

使用道具 举报

9

主题

193

帖子

31

幻币

一流武者

Rank: 3Rank: 3

积分
226
QQ
2016-4-12 16:05:18 显示全部楼层
谢谢了,我看看
PPT学习论坛
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册