Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
664to668
664to668
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excel -> Presentation, keine Aktualisierung

Forumthread: Excel -> Presentation, keine Aktualisierung

Excel -> Presentation, keine Aktualisierung
08.09.2005 15:27:19
Oliver
Hallo Excelgemeinde,
wenn ich in aus Excel heraus eine Powerpoint Präsentation starte, werden die Verknüpfungen nicht aktualisiert.
(Auszug:
Dim ppApp As Object
Set ppApp = CreateObject("Powerpoint.Application")
ppApp.Visible = msoTrue
ppApp.Presentations.Open Filename:="C:\temp\MÖBEL.ppt", ReadOnly:=msoTrue
----------------------------------------------------------------------
Kennt jemand eine Lösung zu meinem Problem.
Im voraus besten Dank.
Oliver
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Excel -> Presentation, keine Aktualisierung
08.09.2005 15:59:41
Luschi
Hallo Oliver,
schau doch mal h i e r nach.
Da wird zu m Aktualisieren von Verknüpfungen in ppt-Dateien was gesagt.
Gruß von Luschi
aus klein-Paris
AW: Excel -> Presentation, keine Aktualisierung
08.09.2005 20:09:04
Ramses
Hallo
wenn die Präsentation mit VBA geöffnet wird, werden die Verknüpfungen nicht aktualisiert.
Das kannst du so umgehen
Option Explicit


Sub PPT_StartPP_And_Update_OLE_Links()
    'by Ramses
    Dim myPPApp As Object
    Dim myPPPres As Object
    Dim strFile As String
    Dim mySh As Object
    Dim i As Integer
    strFile = "C:\Ramses\Präsentation1.ppt"
    If Dir(strFile) = "" Then
        Beep
        MsgBox "Die Datei " & strFile & " existiert nicht!"
        Exit Sub
    End If
    Set myPPApp = CreateObject("PowerPoint.Application")
    myPPApp.Visible = msoTrue
    Set myPPPres = myPPApp.Presentations.Open(strFile)
    '---------------------
    'Verknüpfungen updaten
    For i = 1 To myPPPres.Slides.Count
        For Each Sh In myPPPres.Slides(1).Shapes
            If mySh.Type = msoLinkedOLEObject Then
                With mySh.LinkFormat
                    .Update
                End With
            End If
        Next
    Next i
    '---------------------
    'Run PP Application
    myPPPres.SlideShowSettings.Run
    'myPPApp.Quit
    Set myPPPres = Nothing
    Set myPPApp = Nothing
End Sub
Gruss Rainer
Anzeige
AW: Excel -> Presentation, keine Aktualisierung
09.09.2005 13:59:58
Oliver
Vielen Dank Ramses!
Das ist genau das was ich gesucht habe. Superklasse. Wäre ich nie selbst drauf gekommen!
Viele Grüße
Oliver
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige