将图表从Excel粘贴到PowerPoint

Question

我尝试使用下面的VBA将图表从Excel粘贴到PowerPoint，但我无法使其正常工作。有人可以帮帮我吗？

cht.Select
ActiveChart.ChartArea.Copy
activeSlide.Shapes.PasteSpecial(DataType:=ppPasteDefault).Select

但是，我能够用下面的方法粘贴得很好，这会将图表粘贴为图像，所以我假设这条线是正确的？

cht.Select
ActiveChart.ChartArea.Copy
activeSlide.Shapes.PasteSpecial(DataType:=ppPasteMetafilePicture).Select

我目前正在使用excel 2016。