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

【问题标题】：Paste Excel Range into Powerpoint as Table将 Excel 范围作为表格粘贴到 Powerpoint 中
【发布时间】：2014-11-07 02:15:25
【问题描述】：

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

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

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

有什么想法吗？

【问题讨论】：

了解如何使用这个...msdn.microsoft.com/en-us/library/office/dn833103.aspx

标签： vba powerpoint

【解决方案1】：

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

看起来这篇文章中的相关代码sn-p如下：

'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)

【讨论】：

我已经尝试过了，它会粘贴图像，而不是表格。我试图找到一个“简洁”的解决方案，但由于占位符对象没有粘贴方法，因此如果不使用 ActiveWindow 和选择就很困难。