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