Gruppe
Extern
Bereich
PowerPoint
Thema
PowerPoint mit SlideShow starten und danach schließen
Problem
PowerPoint soll mit einer SlideShow gestartet und nach Beendigung der SlideShow wieder geschlossen werden.
Lösung
Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.
StandardModule: Modul1
Sub PowerPointStarten()
Dim ppApp As Object
Dim ppP As Object
Dim sFile As String
sFile = ThisWorkbook.Path & "\3ulrich.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)
ppP.SlideShowSettings.Run
ppApp.Quit
Set ppP = Nothing
Set ppApp = Nothing
End Sub