excel - 将 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

编辑评论

paste 方法应该返回一个 ShapeRange 对象。您可以设置 top并在返回的 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