Hallo alle zusammen!
Isch hätt da mal gern a problem.
Ich versuch aus excel heraus ne powerpoint-präse zu erstellen. In excel sind meine Diagramme und diese sollen bei klick auf nen button in powerpoint als präse dargestellt werden. Die Verknüpfungen der Diagramme nach powerpoint stimmen zwar, allerdings wird die zu dieser datei zugehörige präsentation geöffnet, ohne vorher nach einer aktualisierung zu fragen, was jedoch aufgrund der veränderungen der daten in excel doch notwendig ist. wie kann ich dfas machen? Hier mal der vorläufige Code
Dim Pfad As String
Dim ppt As PowerPoint.Application
Dim pres As Object
Dim DateiNamePPT As String
Pfad = ThisWorkbook.path & "\"
Rem Dateiname der zugehörigen Präsentation bestimmen
DateiNamePPT = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 3) & "ppt"
On Error Resume Next
Open Pfad & DateiNamePPT For Binary Access Read Lock Read As #1
Rem Datei und PowerPoint geöffnet?
If Err.Number = 70 Then
Rem Datei ist schon offen
On Error GoTo 0
Set ppt = GetObject(, "PowerPoint.Application")
ppt.Activate
Else
Rem Datei ist nicht geöffnet
On Error GoTo 0
Close #1
Rem Ist PowerPoint schon geöffnet?
On Error Resume Next
Set ppt = GetObject(, "PowerPoint.Application")
If Err.Number 0 Then
Rem PowerPoint ist nicht geöffnet
On Error GoTo 0
Set ppt = CreateObject("PowerPoint.Application")
End If
On Error GoTo 0
ppt.Activate
Set pres = ppt.Presentations.Open(Pfad & DateiNamePPT)
End If
Set ppt = Nothing
Set pres = Nothing
End
Hat vielleicht jemand ne Idee?
Gruß Martin