Sub HYP1()
Dim sld_X As Slide
Dim shp_X As Shape
Dim Path As String
Dim Suchzeichen As String
Dim Pos_xlsx As Integer
Path = InputBox("Bitte hier den genauen Pfad reinkopieren")
For Each sld_X In ActivePresentation.Slides
For Each shp_X In sld_X.Shapes
Suchzeichen = "xlsx!"
If shp_X.Type = msoLinkedOLEObject Then
str_X = shp_X.LinkFormat.SourceFullName
Pos_xlsx = InStr(1, str_X, Suchzeichen)
str_X = Right$(str_X, Len(str_X) - Pos_xlsx - 3)
shp_X.LinkFormat.SourceFullName = Path & str_X
End If
Next
Next
End Sub
Wenn man das Ganze debugged bleibt er immer in der Zeile
shp_X.LinkFormat.SourceFullName = Path & str_X
hängen, die Prozessorleistung geht dann ca. 5 min auf 100% !?! Wie kann ich das schneller machen??
Vielen Dank für Eure Hilfe!!!
Ciao
Laurens