ich habe mir über Google ein Makro gesucht, dass meine mehr als 70 Verknüpfungen in eine Excel Datei durch eine andere Excel Datei ersetzen soll. Das klappt, allerdings braucht es hierzu mehr als 10 Minuten. Liegt das daran, dass die Dstei mit der Verknüfung immer wieder neu geöffnet wird ? Hat jemand eine Idee ?
Danke !!!
Sub ChangeLinks()
Dim ppt As Presentation
Dim sld As Slide
Dim shp As Shape
Dim oldPath As String
Dim newPath As String
Set ppt = ActivePresentation 'Die aktive Präsentation festlegen
oldPath = InputBox("Geben Sie den alten Dateipfad ein", "Verknüpfungen ändern") 'Eine Eingabebox anzeigen, um den alten Pfad zu erhalten
newPath = InputBox("Geben Sie den neuen Dateipfad ein", "Verknüpfungen ändern") 'Eine Eingabebox anzeigen, um den neuen Pfad zu erhalten
For Each sld In ppt.Slides 'Für jede Folie in der Präsentation
For Each shp In sld.Shapes 'Für jede Form in jeder Folie
If shp.Type = msoLinkedPicture Or shp.Type = msoLinkedOLEObject Or shp.Type = msoChart Then 'Überprüfen, ob die Form ein verknüpftes Bild, Objekt oder Diagramm ist
shp.LinkFormat.SourceFullName = Replace(shp.LinkFormat.SourceFullName, oldPath, newPath, 1, , vbTextCompare) 'Den alten Pfad mit dem neuen Pfad ersetzen
shp.LinkFormat.Update 'Die Verknüpfung aktualisieren
End If
Next shp
Next sld
End Sub