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