Ich habe wieder ein Problem:
gsetern hatte ich ein Problem die PPDatei von Excel öffnen und Verknüpfungen automatisch aktualiseren... ein netter Profi Rainer hat mir geholfen (und die entsprechende Code gegeben----> Danke :)) Und es funktioniert sehr gut..
Nun habe ich dann gedacht, die Excel Datei, von der aktualisiert wird kann ja
unbenannt werden zb. Es War KPI-Tool_19_07.xls in einige Zeit wird das
in KPI_Tool_07_09.xls unbenant...
und wenn ich in der KPI_Tool_07_09.xls meine PP öffne wird das von
KPI-Tool_19_07.xls aktualisiert... und das ist nicht ganz korrekt...
ich weiß zwar dass in PowerPoint eine Manuelle Möglichkeit gibt das Problem zu lösen, über -> Verknüpfnuge ändern, aber das geht nur wenni ch für jede Folie einzeln Verknüpfung ändere, und Folien habe ich über 30...
Giebt es vielleicht irgendwelche elegante und schnellere lösung
Hier ist die Code, die mir gestern Rainer gegeben hat, mag sein dass sie vielleicht auf die Sprunge helfen kann...
Ich danke für eure Mühe: und werde mich rieeeeesig freuen wenn es funktioniert... :)
Viele Grüße
Anja
Sub PowerPointStarten()
Dim ppApp As Object
Dim ppP As Object
Dim sFile As String
Dim sh As Object
Dim i As Integer
Dim j As Integer
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 i = 1 To ppP.Slides.Count
For Each sh In ppP.Slides(i).Shapes
If sh.Type = msoLinkedOLEObject Then
With sh.LinkFormat
.Update
End With
End If
Next
Next i
ppP.SlideShowSettings.Run
' ppApp.Quit
Set ppP = Nothing
Set ppApp = Nothing
End Sub
:)