Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
664to668
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
664to668
664to668
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige