Question

我正在尝试编写在Excel中写一个宏来将一系列单元格从excel复制到powerpoint。但是，我似乎无法弄清楚将该范围粘贴到powerpoint中作为一个表格（如点击右键并点击＆＃39;粘贴＆＃39;）在powerpoint中。

我尝试了Activesheet.shapes.paste，但这给了我一个关于数据类型的错误

我也尝试过Activesheet.shapes.pastespecial，但据我所知，没有任何选项可以粘贴为表格。我不想粘贴图片或类似的东西。

有什么想法吗？

Answer 1

詹姆斯 - 看看这个：http://www.thespreadsheetguru.com/blog/2014/3/17/copy-paste-an-excel-range-into-powerpoint-with-vba

此帖子中的相关代码段如下所示：

'Copy Range from Excel
  Set rng = ThisWorkbook.ActiveSheet.Range("A1:D12")

'Copy Excel Range
 rng.Copy

'Paste to PowerPoint and position
 mySlide.Shapes.PasteSpecial DataType:=ppPasteEnhancedMetafile
 Set myShapeRange = mySlide.Shapes(mySlide.Shapes.Count)

将Excel范围粘贴到Powerpoint中作为表

1 个答案: