Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
08.07.2024 17:12:21 |
Kaykay |
|
|
|
08.07.2024 17:26:35 |
ralf_b |
|
|
|
09.07.2024 09:58:52 |
Gast40026 |
|
|
|
09.07.2024 10:33:38 |
ralf_b |
|
|
update VBA code update Powerpoint Präsentation |
09.07.2024 10:43:14 |
ralf_b |
|
|
Von:
ralf_b |
Datum:
09.07.2024 10:43:14 |
Views:
122 |
Rating:
|
Antwort:
|
Thema:
update VBA code update Powerpoint Präsentation |
ich habs zwar nicht auf Tasche aber die KI scheint sowas schon zu kennen. Welche hast du denn befragt?
Hie muß man nur die Texte etwas anpassen. und sicherstellen das in der neuen Datei die Blattnamen zu den Alten passen. Das könnte ein Probelm sein wenn die alle "Tabelle1" heissen.
' VBA code to replace Excel table links in a PowerPoint presentation
Sub EditPowerPointLinks()
Dim oldFilePath As String
Dim newFilePath As String
Dim pptPresentation As Presentation
Dim pptSlide As Slide
Dim pptShape As Shape
' Der alte Dateipfad als Zeichenkette (der zu ersetzende Text)
oldFilePath = "Pfad\\Zu\\Excel\\Datei.xlsx"
' Der neue Dateipfad als Zeichenkette (der Text, durch den ersetzt wird)
newFilePath = "Pfad\\Zu\\Neuer\\Excel\\Datei.xlsx"
' Setzen Sie die Variable auf die PowerPoint-Präsentation
Set pptPresentation = ActivePresentation
' Durchlaufen Sie jede Folie in der Präsentation
For Each pptSlide In pptPresentation.Slides
' Durchlaufen Sie jede Form in jeder Folie
For Each pptShape In pptSlide.Shapes
' Ermitteln Sie, ob die Form ein verknüpftes Objekt oder ein verknüpftes Bild ist
If pptShape.Type = msoLinkedPicture Or pptShape.Type = msoLinkedOLEObject Or pptShape.Type = msoLinkedChart Then
' Verwenden Sie Replace, um den alten Dateipfad durch den neuen Dateipfad zu ersetzen
pptShape.LinkFormat.SourceFullName = Replace(LCase(pptShape.LinkFormat.SourceFullName), LCase(oldFilePath), newFilePath)
End If
Next
Next
' Aktualisieren Sie die Verknüpfungen
pptPresentation.UpdateLinks
End Sub
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
08.07.2024 17:12:21 |
Kaykay |
|
|
|
08.07.2024 17:26:35 |
ralf_b |
|
|
|
09.07.2024 09:58:52 |
Gast40026 |
|
|
|
09.07.2024 10:33:38 |
ralf_b |
|
|
update VBA code update Powerpoint Präsentation |
09.07.2024 10:43:14 |
ralf_b |
|
|