Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: PowerPoint Vrknüpfunge aktualisieren MACRO

PowerPoint Vrknüpfunge aktualisieren MACRO
11.07.2004 15:47:19
Anja
Hallo Profis..
ich habe eine frage....
ich habe ein Macro geschrieben, aber das problem ist, die Verknüpfunge werden nicht automatisch aktualisiert, und das ist sehr sehr schlecht,
ich möchte gerne, dass beim Öffnen dieser PP-Datei die Verknüofungen automatisch aktualisiert werden.... kann mir jaemand helfen:

Sub PowerPointStarten()
Dim ppApp As Object
Dim ppP As Object
Dim sFile As String
sFile = ThisWorkbook.Path & "\POWER_POINT_KPI\KPI.ppt"
If Dir(sFile) = "" Then
Beep
MsgBox "Die Datei " & sFile & " existiert nicht!"
Exit Sub
End If
Set ppApp = CreateObject("PowerPoint.Application")
ppApp.Visible = msoTrue
Set ppP = ppApp.Presentations.Open(sFile)
ppP.SlideShowSettings.Run
'  ppApp.Quit
Set ppP = Nothing
Set ppApp = Nothing
End Sub

Viele Grüße
Anja
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: PowerPoint Vrknüpfunge aktualisieren MACRO
Ramses
Hallo
Ich kann keinen Zusammenhang zwischen deinem Makro und den externen Verknüpfungen in der Datei erkennen?
Werden die Verknüpfungen den aktualisert wenn du die Datei manuell öffnest ?
Gruss Rainer
AW: PowerPoint Vrknüpfunge aktualisieren MACRO
Anja
Hi,
in dieser PP-datei habe ich die Verknüpfungen aus meiner Excel Tabelle,
wenn ich sie manuell öffne, dann fragt PP ob ich die Verknüpfugen aktualisieren möchte... aber wenn ich es aus Excel mache dann tut er das nicht...
Anzeige
AW: PowerPoint Vrknüpfunge aktualisieren MACRO
Ramses
Hallo
das musst du manuell, bzw. über ein Makro nachholen. PP unterstützt die Funktion "UpdateLinks" leider nicht.
Option Explicit

Sub PowerPointStarten()
Dim ppApp As Object
Dim ppP As Object
Dim sFile As String
Dim sh As Object
sFile = ThisWorkbook.Path & "\POWER_POINT_KPI\KPI.ppt"
If Dir(sFile) = "" Then
Beep
MsgBox "Die Datei " & sFile & " existiert nicht!"
Exit Sub
End If
Set ppApp = CreateObject("PowerPoint.Application")
ppApp.Visible = msoTrue
Set ppP = ppApp.Presentations.Open(sFile)
'Verknüpfungen updaten
For Each sh In ppP.Slides(1).Shapes
If sh.Type = msoLinkedOLEObject Then
With sh.LinkFormat
.Update
End With
End If
Next
ppP.SlideShowSettings.Run
'  ppApp.Quit
Set ppP = Nothing
Set ppApp = Nothing
End Sub

Gruss Rainer
Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

PowerPoint-Verknüpfungen automatisch aktualisieren mit Makros


Schritt-für-Schritt-Anleitung

Um die Verknüpfungen zwischen deiner Excel-Tabelle und PowerPoint automatisch zu aktualisieren, kannst du ein Makro verwenden. Hier ist eine Anleitung, wie du das umsetzt:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu:

    • Klicke im Menü auf „Einfügen“ und dann auf „Modul“.
  3. Kopiere den folgenden Code in das Modul:

    Sub PowerPointStarten()
       Dim ppApp As Object
       Dim ppP As Object
       Dim sFile As String
       Dim sh As Object
       sFile = ThisWorkbook.Path & "\POWER_POINT_KPI\KPI.ppt"
       If Dir(sFile) = "" Then
           Beep
           MsgBox "Die Datei " & sFile & " existiert nicht!"
           Exit Sub
       End If
       Set ppApp = CreateObject("PowerPoint.Application")
       ppApp.Visible = msoTrue
       Set ppP = ppApp.Presentations.Open(sFile)
    
       ' Verknüpfungen updaten
       For Each sh In ppP.Slides(1).Shapes
           If sh.Type = msoLinkedOLEObject Then
               With sh.LinkFormat
                   .Update
               End With
           End If
       Next
    
       ppP.SlideShowSettings.Run
       '  ppApp.Quit
       Set ppP = Nothing
       Set ppApp = Nothing
    End Sub
  4. Speichere dein Excel-Dokument mit der Makro-fähigen Dateiendung .xlsm.

  5. Führe das Makro aus, um die PowerPoint-Präsentation zu öffnen und die Verknüpfungen automatisch zu aktualisieren.


Häufige Fehler und Lösungen

  • Die Datei existiert nicht: Stelle sicher, dass der Pfad zur PowerPoint-Datei korrekt ist. Die Datei sollte sich im angegebenen Verzeichnis befinden.

  • PowerPoint wird nicht geöffnet: Überprüfe, ob PowerPoint auf deinem Computer installiert ist und keine Sicherheitsbeschränkungen das Öffnen von Anwendungen per VBA verhindern.

  • Verknüpfungen werden nicht aktualisiert: Stelle sicher, dass die Shapes in deiner PowerPoint-Präsentation tatsächlich als verknüpfte OLE-Objekte definiert sind. Andernfalls wird das Makro sie nicht finden.


Alternative Methoden

Wenn du Verknüpfungen in PowerPoint manuell aktualisieren möchtest, kannst du dies auch direkt in PowerPoint tun:

  1. Öffne die PowerPoint-Präsentation.
  2. Gehe zu Daten in der oberen Menüleiste.
  3. Wähle Verknüpfungen und dann Alle Verknüpfungen aktualisieren, um alle Excel-Daten in PowerPoint zu aktualisieren.

Für eine automatisierte Lösung kannst du auch ein PowerPoint-Makro erstellen, das beim Öffnen der Präsentation die Verknüpfungen aktualisiert.


Praktische Beispiele

Hier ist ein Beispiel, wie du eine Excel-Tabelle in PowerPoint automatisch aktualisieren kannst:

  1. Erstelle eine Excel-Tabelle mit Daten, die du in PowerPoint verwenden möchtest.
  2. Verknüpfe die Excel-Tabelle in PowerPoint über Einfügen > Objekt > Aus Datei erstellen.
  3. Verwende das oben genannte Makro, um die Präsentation zu öffnen und die Verknüpfungen zu aktualisieren.

Tipps für Profis

  • Testen von Makros: Stelle sicher, dass du deine Makros immer in einer Testumgebung ausprobierst, bevor du sie in einer produktiven Umgebung einsetzt.

  • Fehlerbehandlung einbauen: Füge Fehlerbehandlungsroutinen in dein Makro ein, um unerwartete Probleme besser zu handhaben.

  • Verknüpfungen regelmäßig prüfen: Überprüfe regelmäßig, ob alle Verknüpfungen in deiner Präsentation aktuell sind, insbesondere vor wichtigen Präsentationen.


FAQ: Häufige Fragen

1. Wie kann ich die Uhrzeit in PowerPoint automatisch aktualisieren?
Du kannst ein ähnliches Makro wie oben beschrieben verwenden, um Textfelder mit der aktuellen Uhrzeit zu aktualisieren. Verwende dazu die Funktion Now() in VBA.

2. Warum aktualisieren sich die Verknüpfungen nicht automatisch?
PowerPoint unterstützt die automatische Aktualisierung von Verknüpfungen beim Öffnen nur teilweise. Ein Makro ist oft die beste Lösung, um sicherzustellen, dass alle Verknüpfungen aktualisiert werden.

3. Kann ich das Makro für mehrere Präsentationen verwenden?
Ja, du kannst das Makro anpassen, um mehrere Dateien zu öffnen und die Verknüpfungen zu aktualisieren, indem du die Dateipfade in einer Schleife durchläufst.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige