Hi,
ich habe leider ein großes Problem und bekomme dieses einfach nicht gelöst.
Ich habe eine Exceldatei, aus der ich sehr viele Texte in eine Powerpoint kopiere. Diese sollen nicht immer per Hand angeklickt werden sonder sich komplett aktualisiere.
Mit den Standardbefehlen wie "ActivePresentation.UpdateLinks" habe ich schon alles versucht aber es geht nicht.
Darüber hinaus sollen alle Links immer wieder auf andere Dateien geändert werden und dass am besten auch durch eine Inputbox.
Bin bis jetzt soweit, das ich alle Objekte einzeln anwählen und den Pfad ändern kann. Am besten wären aber einmal alle zu ändern, weil der Pfad bei allen gleich ist.
Dann würde ich diese Dinger gleich updaten wollen, damit die neuen Daten aus Excel eingelesen werden können. Mit Shape.linkFormat.Update klappt das aber auch nicht.
Ich hoffe ihr könnt mir helfen
Sub UpdateTableTag()
Dim Praes As Presentation, Blatt As Slide, Bild As Shape
Set Praes = ActivePresentation
For Each Blatt In Praes.Slides
For Each FB_Shape In Blatt.Shapes
If (InStr(1, FB_Shape.Tags("XLNAME"), "]")) Then
FB_newTag = InputBox("Set new table range", "Set new table range", FB_Shape.Tags("XLNAME"))
If FB_newTag = vbNullString Then Exit Sub
FB_Shape.Tags.Add "XLNAME", FB_newTag
Else
MsgBox "Selection is not linked to Excel", vbExclamation, "Error"
End If
Next FB_Shape
Next
End Sub
|