我来帮你搞定这个困扰！你提到用ppPasteMetafilePicture能正常粘贴图片，但ppPasteDefault不行，核心问题大概率出在活动对象依赖或者剪贴板就绪时机上，下面给你具体的排查和修复方案：

1. 抛弃Select和Active类对象，改用明确的对象引用 #

你的原代码用了cht.Select、ActiveChart、activeSlide，这些都依赖当前的活动窗口/对象，很容易因为程序运行时的状态变化（比如PPT窗口被意外切换）导致引用失效。改成直接引用对象会稳定很多：

' 先明确引用Excel图表（替换成你实际的工作表和图表名称）
Dim myChart As Chart
Set myChart = ThisWorkbook.Worksheets("你的工作表名").ChartObjects("你的图表名").Chart

' 明确引用PPT应用、演示文稿和目标幻灯片
Dim pptApp As Object
Dim pptPres As Object
Dim targetSlide As Object
Set pptApp = CreateObject("PowerPoint.Application")
Set pptPres = pptApp.Presentations.Open("你的PPT文件路径") ' 或者用ActivePresentation
Set targetSlide = pptPres.Slides(2) ' 替换成你要粘贴的幻灯片序号

' 复制并粘贴默认格式
myChart.ChartArea.Copy
targetSlide.Shapes.PasteSpecial DataType:=ppPasteDefault

2. 给剪贴板留足就绪时间 #

复制复杂图表到剪贴板可能需要短暂的处理时间，直接粘贴会因为剪贴板未就绪失败。可以加入DoEvents等待剪贴板同步完成：

myChart.ChartArea.Copy
DoEvents ' 等待剪贴板完成复制操作
targetSlide.Shapes.PasteSpecial DataType:=ppPasteDefault

3. 尝试直接用Paste替代PasteSpecial(ppPasteDefault) #

ppPasteDefault本质就是PPT的默认粘贴行为，有时候直接调用Paste会规避参数兼容问题，更稳定：

myChart.ChartArea.Copy
DoEvents
targetSlide.Shapes.Paste

4. 检查版本兼容性 #

如果你的PPT是早期版本（比如2010及以前），嵌入Excel图表可能会存在格式兼容性问题，确保Excel和PPT版本一致，或者将PPT保存为最新格式后再测试。

按照上面的方法修改后，应该就能正常粘贴默认格式的图表了！

内容的提问来源于stack exchange，提问作者P.hoang