将 Excel 范围粘贴到 2016 年与 Windows 10 的 PowerPoint 幻灯片

Question

我想将 Excel Range 复制并粘贴到 PowerPoint 幻灯片中。该范围具有条件格式、数字格式和边框格式。这是我所拥有的：

mwksTables.Range("T_Table").Copy  
mobjPowerPointSlide.Shapes.PasteSpecial 0

此代码有效，但不会粘贴保留原始格式。如果我将代码更改为以下内容：

mobjPowerPointSlide.Shapes.PasteSpecial 2

它打印正确，但放大它，以便只显示对象中一半的数据(奇怪(。就像它在复制后但在粘贴之前缩放范围一样。

我试过这个：

Application.CommandBars.ExecuteMso ("PasteSourceFormatting")

但这仅适用于 Office 2010。

有人可以帮忙吗？如何将表格粘贴到 PowerPoint 2016 中，并使其看起来与 Excel 2016 中的范围相同？谢谢！

Answer 1

尝试将其粘贴为 OLE 对象...

oSlide.Shapes.PasteSpecial 10 'ppPasteOLEObject

然后，您还可以在PowerPoint中编辑工作表对象或在Excel中打开它。