用于将图表插入ppt幻灯片的VBA-VBAforInsertingachartintoapptslide

Below is a procedure that I use to pull charts into a ppt from excel spreadsheets. However one thing I cannot figure out is how to insert the picture into the "object" instead of just pasting it onto th screen. (ie if I did a ppLayoutFourObjects, and sent fours charts to this slide, before adding another, I need to know how to paste the chart into each designated rectangle shown from the 4 Objects selection). I know that the first one seems to always be rectangle five, I can't get the code right. Please help. This is all 2003 Office.

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

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:\Users\Admin\Desktop\Budget 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

Thanks for any help. VBA for PowerPoint is my weakest, but I am really in need to pick it up for work! Thanks guys!

谢谢你的帮助。 PowerPoint的VBA是我最弱的,但我真的需要把它拿起来工作!多谢你们!

1 个解决方案

Set oSlide = ActivePresentation.Slides(lCurrSlide)
Set oShape = oSlide.Shapes.Paste
oShape.Top = 10
oShape.Left = 10
oShape.Width = 100
oShape.Height = 100