In Excel eine *.pps-Datei öffnen

Hallo,

ich möchte in Excel mit einer Befehlsschaltfläche per VBA eine *.pps-Datei öffnen, dann wieder zu Excel zurückkehren. Normalerweise schliesst sich ja die pps-Datei wieder automatisch, was dieses Problem lösen sollte. Bleibt noch das Öffnen der Datei. Wäre super, wenn mir jemand weiterhelfen könnte.

Besten Dank - Jobst

Folgendes Coding ruft beliebige Dateien auf - in Deinem Falle eine PPS-Datei.
Einfach ins VBA hineinkopieren, den DateiPfad + Namen korrigieren und los geht’s.

Was aber nicht verhindert wird ist, dass man mit ALT+TAB auf ein anderes Programm umschaltet…

greets from michL (vienna)

Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Public Sub RunIt()
Dim scr\_hDC As Long
'
scr\_hDC = GetDesktopWindow()
Call ShellExecute(scr\_hDC, "Open", "D:\Daten\RunIt.pps", "", "D:\Daten\", 1)
'
End Sub

Vielen Dank, hat super funktioniert.

Grüsse - Jobst