Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

PowerPoint mit SlideShow starten und danach schließen

Gruppe

PowerPoint

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