将图表从excel复制到powerpoint时保留图像质量使用VBA

Question

我使用代码使用PasteSpecial

将图表从excel复制到VBA

我用的代码是：

Set PPSlide = PPPres.Slides.Add(SlideCount + 1, ppLayoutTitleOnly)
PPApp.ActiveWindow.View.GotoSlide PPSlide.SlideIndex

Set PPPres = PPApp.ActivePresentation
PPApp.ActiveWindow.ViewType = ppViewSlide

ActiveSheet.ChartObjects("Chart 1").Activate
ActiveSheet.ChartObjects("Chart 1").CopyPicture
Set myshaperange2 = PPSlide.Shapes.PasteSpecial(ppPasteBitmap)

我已经在我的代码中定义了所有必要的变量。当图表从excel复制到VBA时，它会失去它的质量。我也尝试使用ppPasteEnhancedMetafile DataType但仍然保持图像质量丢了。我用谷歌搜索但是找不到修复它。我可能会出错？