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

heiyang928

利用EXCEL画出线性、条形图等数据分析图片，有时候图片太多，如何批量将这些图片导入PPT中，一张图片占用一张幻灯片

Admin

   

很遗憾通知楼上朋友，您的帖子在24小时之内没有任何回复！

通常情况下，本论坛发布的主题帖会在8小时被回复或处理。您的帖子在24小时之内未被回复，其中的原因可能是：

1、问题表述不清、模棱两可，难以理解，帮助者被搞晕了，夺帖而出；
2、没有上传必要的附件，或附件被遗忘在某个角落；
3、发帖提问时，语气带棱角、带挑衅，不幸被列入不受欢迎的帖子；
4、所提问题不成立，或提不合理的要求，乐于助人者使出“走为上”之计；
5、话题较偏、较冷或者发布到了不合适的版块，暂时无人问津，顾影自怜。


为了提高您的问题解决效率，我们推荐您阅读以下文章：
* 如何发表新话题和上传附件：http://club.excelhome.net/thread-45649-1-1.html
* 发帖的技巧：http://club.excelhome.net/thread-176339-1-1.html
* EH技术论坛的最佳学习方法：http://club.excelhome.net/thread-117862-1-1.html

hacker85

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  

这是一个图片的方法,其他的你自己改吧

heiyang928

谢谢了，我看看

icingall

hacker85 发表于 2010-1-28 20:39
Public Sub 技巧()
    Dim ws As Worksheet
    Dim pptApp As PowerPoint.Application

请问大神，如何导入所有excel里图表呢，现在我一共有快上百张图了，不知道这个代码怎么修改可以达成，求助。