下面的是PPT教程网给你带来的相关内容：

ppt插入excel表格:用于将图表插入ppt幻灯片的VBA

下面是我用来从excel电子表格将图表拉入ppt的过程。然而ppt插入excel表格，我无法弄清楚的一件事是如何将图片插入“对象”而不是仅将其粘贴到屏幕上。 （即如果我执行了，并将fours图表发送到此幻灯片ppt插入excel表格:用于将图表插入ppt幻灯片的VBA，则在添加另一个之前，我需要知道如何将图表粘贴到4个对象选择中显示的每个指定矩形中）。我知道第一个似乎总是矩形五，我无法得到正确的代码。请帮忙。这是2003 。

sub xls2ppt()
'I use this to pull charts into ppt from excel   
Dim xlApp As Object
Dim xlWrkBook As Object
Dim lCurrSlide As Long
Set xlApp = CreateObject("Excel.Application")
' Open the Excel workbook
Set xlWrkBook = xlApp.Workbooks.Open("X:UsersAdminDesktopBudget Overview.xls")
' Copy picture of the 1st chart object onto the clipboard
xlWrkBook.Worksheets(2).ChartObjects(1).CopyPicture
' Get the slide number
lCurrSlide = ActiveWindow.Selection.SlideRange.SlideNumber
' Paste the picture onto the PowerPoint slide.
ActivePresentation.Slides(lCurrSlide).Shapes.Paste
' Close the open workbook without saving changes
xlWrkBook.Close (False)
xlApp.Quit
Set xlApp = Nothing
Set xlWrkBook = Nothing
End Sub

谢谢你的帮助。用于的VBA是我最弱的，但我真的需要把它拿起来工作！多谢你们！

感谢你支持pptjcw.com网，我们将努力持续给你带路更多优秀实用教程！

上一篇：ppt设置动画播放顺序:更改桌面版 PowerPoint 中的播放顺序 下一篇：ppt视频录制:ppt2007如何生成视频？ppt2007生成视频的方法

郑重声明：本文版权归原作者所有，转载文章仅为传播更多信息之目的，如作者信息标记有误，请第一时间联系我们修改或删除，多谢。