// Cet exemple utilise un TOpenDialog pour sélectionner le pps procedure TForm1.Button1Click(Sender: TObject); var PresentationPpt : _Presentation; begin if OpenDialog1.Execute then begin PresentationPpt := PowerPointApplication1.Presentations.Open(OpenDialog1.FileName,0,0,0); PresentationPpt .SlideShowSettings.Run; end; end;