pptスライドにチャートを挿入するためのVBA

Question

以下は、Excelスプレッドシートからpptにチャートをプルする際に使用する手順です。しかし、私が把握することができない1つの方法は、画面に貼り付けるのではなく、 "オブジェクト"に画像を挿入する方法です。 （つまり、私がppLayoutFourObjectsを実行し、このスライドに4つのチャートを送信した場合、別のチャートを追加する前に、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 

ありがとうございました。 PowerPointのVBAは私の弱いですが、私は実際に仕事のためにそれを拾う必要があります！みんなありがとう！

Answer 1

AFAIK 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