如何从excel中断开粘贴在ppt中的图表链接而不丢失数据？

我必须从一个非常沉重（>10MB）的excel文件中粘贴多个图表，并且有excel链接的图表也会使演示文稿沉重。我们能否创建一个宏，使我们能够将ppt中的图表重新链接到原始excel图表，更新图表数据并断开链接以保持文件大小较小

在向客户发送数据包之前的最后几天，我们基本上对输入进行了大量迭代，以避免在从excel重新绘制/重新格式化/更新ppt图表时浪费时间

上面提到的代码使我能够断开与excel的图表链接，并减小ppt文件大小，但在此之后图表将不可编辑。任何帮助都将不胜感激

提前谢谢你的帮助

Sub BreakChartLinks()
Dim sld As Slide
Dim shp As Shape
For Each sld In ActivePresentation.Slides
    For Each shp In sld.Shapes
        If shp.HasChart Then
        shp.LinkFormat.BreakLink
        End If
    Next shp
Next sld
End Sub

---

使用链接的Excel图表，PowerPoint不应变得沉重。但繁重的Excel工作簿需要可访问。那么，为什么用户界面无法复制Excel图表并将其粘贴为PowerPoint图表，而只能再次粘贴为Excel图表（链接或未链接）或图片？因为Excel图表可以从工作簿中的所有工作表中获取相关数据。所以需要整个沉重的工作手册。仅将此图表的图表和真正需要的工作表复制到新工作簿中。这样，这本新工作簿就不会那么重了。然后将新工作簿复制并粘贴到PowerPoint中，作为未链接的Excel图表。谢谢。但是，我的工作簿中有50多个图表必须粘贴到ppt中，因此每次在新工作簿中手动复制图表数据将非常麻烦。此外，我需要对模型输入中的每个迭代重复执行相同的练习。因此，我需要一个支持宏的解决方案来减少花费在冗余练习上的时间。我已经找到了两个独立的代码，如果/当它们结合起来时，应该可以为我的问题提供一个部分解决方案。（上接）…这些代码是----1）更新各种图表链接的代码；以及2）代码，用于从具有断开/坏链接的图表中提取数据。我现在需要找到一种方法，将从excel粘贴的图表转换为ppt图表（带数据），然后再转换回excel粘贴的图表。如果你能帮我，那就太好了。我所描述的一切都可以用Excel中的VBA实现。但据我所知，“将excel粘贴的图表转换为ppt图表（带数据）并返回excel粘贴的图表”是不可能的。因此，请在Excel中使用VBA，并在遇到困难时提出特殊问题。