Dim  myPapp As New Powerpoint.Application
 
   With myPapp
         .Activate
         .Presentations.Open ("Pfad_Name_der_Präsentation)
         .ActivePresentation.Slides(1).Shape(1).Text = "Test"
   End With

Private Declare Sub Sleep Lib "kernel32" _
   (ByVal lMillisek As Long)
 
Private mypower As New PowerPoint.Application
 
Sub Auto_Open()
     With mypower
     .Activate
     .Presentations.Open ("O:Stoc.PPT")
     .ActivePresentation.SlideShowSettings.Run
     DoEvents
     Sleep 3000
     .Quit
   End With
   Set mypower = Nothing
   MsgBox "Lordchen was here"
 
End Sub