使用vba從Excel粘貼到powerPoint中時，僅PasteMetafilePicture有效

Question

這讓我很困惑。 我寫了一個代碼，可以在excel中創建數據透視表。 然后，它創建一個新的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

我不知道為什么不使用特殊形狀的粘貼，但這是一種解決方法。

有人知道為什么會這樣嗎？