AW: pps-datei mit excel starten
05.08.2007 12:37:00
Chaos
Servus Franz,
das kann man z.B. so lösen:
Private Sub Workbook_Open()
Dim objPowerpoint As Object
Set objPowerpoint = CreateObject("Powerpoint.Application")
objPowerpoint.Visible = True
objPowerpoint.Presentations.Open Filename:="C:\Dokumente und Einstellungen\Christian\ _
Desktop\Hallo.pps", ReadOnly:=msoFalse
Application.Wait Now + TimeSerial(0, 0, 5)
objPowerpoint.Quit
End Sub
Die Wait Funktion musst du entsprechend der Länge deiner Präsentation evtl. anpassen.
Es wird die pps geöffnet, sie läuft ab und wird danach geschlossen und Excel ist dann geladen. Ich habe hier bei Powerpoint unter Extras-Optionen- Beenden mit schwarzer Folie herausgenommen.
Gruß
Chaos