code to break links

[Nicky]

Hi

I have a presentation with c170 charts linked from excel. I want t
break the links, but whenever I click edit links, pp freezes.

Can anyone help with the code to break all the links in a presentation
or is there another way anyone can suggest?

I'm using Powerpoint 200

 

[Nicky]

Thanks, Steve, works a treat.

For anyone else with the same issue, this code using Steve's suggestio
worked for me:

Sub break_all_chart_picture_links()
res = MsgBox("WARNING!!!" & Chr(13) & "this macro breaks all the char
picture links in this presentation by converting them to ungroupe
pictures and then reassembling them." & Chr(13) & "Do you wish t
proceed?", vbYesNo)
If res = 6 Then
For n = 1 To ActivePresentation.Slides.Count
ActiveWindow.View.GotoSlide Index:=n
For Each sh In ActiveWindow.Selection.SlideRange.Shapes
sh.Select
On Error Resume Next
ActiveWindow.Selection.ShapeRange.Ungroup.Select
If Error = "" The
ActiveWindow.Selection.ShapeRange.Group.Select
Next
Next

End If

End Su