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

即使在经过数小时的search之后，我仍然努力正确地使用API​​。

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

1）创build一个新的PowerPoint演示文稿和幻灯片。 [DONE]

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中设置第一个形状的顶部和左侧属性。 我没有testing这个（我不使用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