title image


Smiley Re: Office Anwendung in Access 97 öffnen und starten
So oder so ähnlich:





Sub Ppt_Öffnen(Dateiname As String)

'

' Powerpoint öffnen, Päsentation starten

'

Dim ppt As Object

Dim pptPres As Presentation

'

'

Set ppt = CreateObject("PowerPoint.Application")

'

With ppt

.Activate

.WindowState = ppWindowMaximized

.Visible = True

End With

'

Set pptPres = ppt.Presentations.Open(Dateiname)

pptPres.SlideShowSettings.Run

'

Set pptPres = Nothing

Set ppt = Nothing

'

End Sub







Aufruf der Prozedur und Übergabe des Dateinamens dann etwa so:





Sub test()



Call Ppt_Öffnen("C:\Temp\Nasenbär.ppt")



End Sub







Greetz,

Eric

Spotlight-Kicktipp gestartet!

Steig ein und trete mit Deinem Bundesliga-Tipp gegen die Besten an! :o)

http://www.kicktipp.de/spotlight/



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: