当使用vba从Excel粘贴到powerPoint时，只有PasteMetafilePicture有效

这一个让我很困惑。 我写了一个在Excel中创build数据透视表的代码。 然后创build一个新的PowerPoint并调整格式。 最后，我希望从Excel中获取数据透视表，将其复制并粘贴到PowerPoint文件中。 我想能够编辑它，所以位图，图片，GIF等将无法正常工作。

一切工作正常，直到我将数据透视表粘贴到Excel中。 这贴到PowerPoint的图片，没问题：

pt.TableRange1.Copy newPPT.ActivePresentation.Slides(1).Shapes.PasteSpecial (ppPasteMetafilePicture) 

其中pt是数据透视表，newPPT是PowerPoint.Application

但是，这不起作用。

 pt.TableRange1.Copy newPPT.ActivePresentation.Slides(1).Shapes.PasteSpecial (ppPasteHTML) 

没有什么贴。 我已经尝试缩小，移动所有的物体，因为它可能粘贴在一切，但没有运气。 任何想法为什么发生这种情况？

另外，当代码运行后从剪贴板粘贴时，无需重新复制数据透视表，粘贴没有问题。

谢谢

Answer 1

这工作：

 pt.TableRange1.Copy newPPT.ActiveWindow.View.PasteSpecial ppPasteHTML 

我不知道为什么它不使用特殊的形状粘贴，但这是一个解决方法。

任何人都知道为什么这样？