AW: Powerpoint über excel starten
28.07.2007 12:20:17
Chaos
Servus Franz,
damit lässt sich wohl Powerpoint starten:
Sub PowerpointÖffnen()
Dim objPowerpoint As Object
Set objPowerpoint = CreateObject("Powerpoint.Application")
objPowerpoint.Visible = True
objPowerpoint.Presentations.Open Filename:="K:\Prä.ppt", ReadOnly:=msoFalse
objPowerpoint.Activate
End Sub
das könntest du in das Workbook_Open-Ereignis einbauen, also so:
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\Präsentation1.ppt", ReadOnly:=msoFalse
objPowerpoint.Activate
End Sub
Gruß
Chaos