如何在不丢失数据的情况下打破ppt中粘贴的图表的图表链接？

Question

我必须从excel文件中粘贴多个图表，这个图表非常繁重（> 10MB）并且使用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