将 OLEObject 从 Excel 复制到新创建的 Powerpoint

Question

即使经过数小时的搜索，我仍很难正确使用 API。

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

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

2) 将 OLEObject 从 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

请帮助我了解如何将 OLEObjects 从 Excel 文件复制到 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 中第一个形状的属性。我没有测试这个（而且我不使用 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