將OLEObject從Excel複製到新創建的Powerpoint中

Question

即使經過數小時的搜索，我也很難正確地使用API​​。

基本上，我想從我的Excel文件中執行以下操作。

1）創建一個新的Powerpoint演示文稿和幻燈片。 [完成]

2）將Excel文件中的OLEObject複製到Powerpoint幻燈片中。

我到目前爲止所做的沒有。 2是

Dim s As Shapes 
For Each Obj in Worksheets("TEMPLATE").OLEObjects 
    'Copy OLEObjects from Excel to Powerpoint slide 
    Set s = pptSlide.Shapes.AddOLEObject '(... ?? ...) 
Next Obj 

請幫助我如何將Excel文件中的OLEObjects複製到Powerpoint幻燈片中。

謝謝。

Answer 1

爲什麼不簡單地複製和粘貼OBJObjects？

For Each Obj in Worksheets("TEMPLATE").OLEObjects 
    'Copy OLEObjects from Excel to Powerpoint slide 
    Obj.Copy() 
    pptSlide.Shapes.Paste() 
Next Obj 

編輯註釋

的粘貼方法應該返回一個ShapeRange對象。您可以在返回的ShapeRange中設置top和第一個形狀的左側屬性。我沒有測試這個（我不使用VB.NET），但它應該是這樣的：

Dim sr as ShapeRange 
Dim sh as Shape 

Set sr = pptSlide.Shapes.Paste() 
Set sh = sr.Item(1) 
sh.Left = 10 
sh.Top = 10