VBA für ein Diagramm in eine PPT-Folie einlegen

Question

Im Folgenden ist ein Verfahren, das ich Diagramme in eine ppt aus Excel-Tabellen ziehen verwenden. Aber eine Sache, die ich nicht herausfinden kann, ist, wie Sie das Bild in das „Objekt“ einfügen, anstatt nur es auf th Bildschirm einfügen. (Dh, wenn ich ein ppLayoutFourObjects machte und Vieren Charts dieser Folie, bevor eine weitere hinzufügen, muss ich wissen, wie das Diagramm in jedem bezeichneten Rechteck aus der 4 Objekte Auswahl gezeigt einfügen). Ich weiß, dass die erste scheint fünf immer zu sein Rechteck, kann ich nicht den Code Recht bekommen. Bitte helfen.  Das ist alles, Office 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:\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

Vielen Dank für jede Hilfe. VBA für Powerpoint ist meine schwächste, aber ich bin wirklich braucht es für die Arbeit zu holen! Danke Jungs!

Answer 1

AFAIK Sie können keinen Plan „in ein Objekt“ in Powerpoint einfügen, auch über die Benutzeroberfläche. In Word können Sie in ein Textfeld einfügen oder in eine Tabellenzelle, aber nicht in Powerpoint.

Was Sie brauchen, anstatt zu tun ist, positionieren die 4 eingefügt Charts, so dass sie die richtige Größe und Position sind - und das ist einfach genug zu tun ...

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