使用Windows 10在2016年将Excel Range粘贴到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中打开它。