Mange kæder mellem powerpoint og Excel

Her er lidt VBA-kode, der ligger i PP og som identificerer, hvor kæder ligger og erstatter denne med en anden:

Sub test()
Dim sl, sh
   
  For sl = 1 To ActivePresentation.Slides.Count
        For sh = 1 To ActivePresentation.Slides(sl).Shapes.Count
            With ActivePresentation.Slides(sl).Shapes(sh)
                If .Type = msoLinkedOLEObject Then
                    With .LinkFormat
                        .SourceFullName = "c:\test2.xls"      'oprindeligt test.xls
                        .AutoUpdate = ppUpdateOptionAutomatic
                    End With
                End If
            End With
        Next sh
    Next sl
   
    ActivePresentation.UpdateLinks
    ActivePresentation.Save
End Sub

Men det er vel ikke den samme erstatning af kæden - i givet fald skal rutinen udbygges. Men her er lidt at eksperimentere med.