将对象从Excel复制到新创建的Powerpoint

即使经过数小时的搜索，我仍在努力使API的使用正确无误

基本上，我想从Excel文件中执行以下操作

1） 创建新的Powerpoint演示文稿和幻灯片。[完成]

2） 将对象从Excel文件复制到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文件复制到Powerpoint幻灯片中

---

谢谢。

为什么不简单地复制并粘贴对象呢

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

编辑以供评论

粘贴方法应返回一个ShaperAge对象。可以在返回的ShapeRange中设置第一个形状的左属性和右属性。我没有测试这个（我也没有使用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

---

听起来是个好建议。知道如何把它定位在某个x，y吗？