|
Hallo Zusammen!
Ich habe eine kurzes Prog. zusammengetippt, mit dem ich aus einer Powerpoint Verknüpfungen (es handelt sich dabei um Diagramme) zu einer Excel auslese und ändere.
ich habe das Ganze in Powerpoint 2011 (OSX) geschrieben, da funktioniert es auch gut und schnell, man kann halt die Diagramme nicht aktualisieren, da Verkünpfungen auf OSX irgendwie anders gehandhabt werden, ich kann aber sehen, dass alle Verknüpfungen geändert wurden, so wie ich das wollte. Wenn ich den entsprechenden Pfad angebe, und die Powerpoint danach(!) auf ein Windowssystem kopiere und aktualisiere ist alles so wie sein soll.
So jetzt das eigentliche Problem: Der selbe Code braucht auf Windows Ewigkeiten um allein nur eine Verknüpfung zu ändern, aber woran liegt das? Und kann man das ändern?? Die extrem lange Wartezeit tritt immer in der letzten Zeile der IF schleife auf, bei :"SHP.LinkFormat.SourceFullName = Path & str_X"
Hier der Code:
Sub HYP1()
Dim SLD As Slide
Dim SHP As Shape
Dim Path As String
Dim Suchzeichen As String
Dim Pos_xlsx As Integer
Path = InputBox("Bitte hier den genauen Pfad reinkopieren") 'Frage nach dem Zielpfad
For Each SLD In ActivePresentation.Slides
For Each SHP In SLD.Shapes
Suchzeichen = "xlsx!" 'suche nach xlsx!, damit der Teil danach erhalten bleibt
If SHP.Type = msoLinkedOLEObject Then
str_X = SHP.LinkFormat.SourceFullName
Pos_xlsx = InStr(1, str_X, Suchzeichen)
str_X = Right$(str_X, Len(str_X) - Pos_xlsx - 3) 'kürze alte Verknüpfung bis auf den Worksheetnamen
SHP.LinkFormat.SourceFullName = Path & str_X 'kopiere neue Verknüpfung zusammen
End If
Next
Next
End Sub
Mir ist grad aufgefallen, dass ich das str_X gar nicht deklariert haben, aber das ist doch hoffentlich nicht das Problem :-/
Ihr würdet mir seeeehr helfen, wenn ihr mir sagen könntet, wie ich den Code auf Windows auch "schnell" mache oder was ihn in besagter Zeile stört! Ich hoffe es ist alles verständlich!
Vielen Dank!!
Gruß
Laurens
|