PPTスライドにグラフを挿入するためのVBA

Question

以下は、Excelスプレッドシートからグラフをpptに取り込むために使用する手順です。しかし、私が理解できないことの1つは、「オブジェクト」に画像を挿入する方法です。画面に貼り付けるだけではありません。 （つまり、ppLayoutFourObjectsを実行し、このスライドにfoursチャートを送信した場合、別のチャートを追加する前に、4つのオブジェクトの選択から表示される各指定長方形にチャートを貼り付ける方法を知る必要があります）。私は、最初のものが常に長方形の5であるように見えることを知っています、私はコードを正しく得ることができません。助けてください。  これはすべて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

ご協力ありがとうございます。 PowerPoint用のVBAは私の最も弱いですが、私は本当に仕事のためにそれを拾う必要があります！みんなありがとう！

Answer 1

「オブジェクトに」グラフを貼り付けることはできませんPowerPointでも、UIを介して。 Wordでは、テキストボックスまたは表のセルに貼り付けることができますが、PowerPointではできません。

代わりに行う必要があるのは、貼り付けた4つのチャートが正しいサイズになるように配置することです。位置-それは簡単です...

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