' PowerPoint aus QBasic heraus ansteuern
' Einfache Version mit "festem Programmablauf"

INPUT "Datei mit vollst. Pfad ohne .ppt mit Pr„sentation"; d$

' Code dynamisch erzeugen
OPEN ENVIRON$("TEMP") + "\~POWERPT.VBS" FOR OUTPUT AS 1
PRINT #1, "Option Explicit"
PRINT #1, "Const ForReading = 1"
PRINT #1, "Dim oPPT, oPraes, oSicht, lAnzFolien, i"
PRINT #1, ""
PRINT #1, "Set oPPT = WScript.CreateObject(" + CHR$(34) + "PowerPoint.Application" + CHR$(34) + ")"
PRINT #1, "oPPT.Visible = True"
PRINT #1, "Set oPraes = oPPT.Presentations.Open(" + CHR$(34) + d$ + ".ppt" + CHR$(34) + ")"
PRINT #1, "Set oSicht = oPraes.SlideShowSettings.Run"
' Ab hier Code f�r Pr„sentation
PRINT #1, "oSicht.View.Last"
PRINT #1, "lAnzFolien = oSicht.View.Slide.SlideIndex"
PRINT #1, "oSicht.View.First"
PRINT #1, "For i = 1 To lAnzFolien"
PRINT #1, "  oSicht.View.GotoSlide i"
PRINT #1, "  WScript.Sleep 3000"
PRINT #1, "Next"
' Ende Pr„sentationscode
PRINT #1, "oSicht.View.Exit"
PRINT #1, "Set oSicht = Nothing"
PRINT #1, "oPraes.Close"
PRINT #1, "Set oPraes = Nothing"
PRINT #1, "oPPT.Quit"
PRINT #1, "Set oPPT = Nothing"
CLOSE 1
' und dieses Script ausf�hren
PRINT "Wir starten..."
SHELL "cscript //NoLogo " + ENVIRON$("TEMP") + "\~POWERPT.VBS"
KILL ENVIRON$("TEMP") + "\~POWERPT.VBS"
PRINT "Ende Pr„sentation"