如何打破图表链接从Excel中粘贴的图表，而不会丢失数据？

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

我们在最后几天基本上做了很多迭代来模拟input，然后再向客户端发送数据包，并且希望避免浪费时间从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