VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

PowerPoint mit SlideShow starten und danach schließen

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

    


Beiträge aus dem Excel-Forum zu den Themen Extern und PowerPoint