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
Anzeige