Controler PowerPoint via OLE

uses
ComObj;

procedure TForm1.Button2Click(Sender: TObject);
var
PowerPointApp: OLEVariant;
begin
try
PowerPointApp := CreateOleObject('PowerPoint.Application');
except
ShowMessage('Error...');
Exit;
end;
// Afficher PowerPoint
PowerPointApp.Visible := True;

// Afficher la version de PowerPoint
ShowMessage(Format('Powerpoint version: %s',[PowerPointApp.Version]));

// ouvrir une présentation
PowerPointApp.Presentations.Open('c:MyPresentation.ppt', False, False, True);

// Afficher le nombre de diapo
ShowMessage(Format('%s slides.',[PowerPointApp.ActivePresentation.Slides.Count]));

// lancer une présentation
PowerPointApp.ActivePresentation.SlideShowSettings.Run;

// aller à la prochaine diapo
PowerPointApp.ActivePresentation.SlideShowWindow.View.Next;

// aller à la diapo n°2
PowerPointApp.ActivePresentation.SlideShowWindow.View.GoToSlide(2);

// aller à la diapo précédente
PowerPointApp.ActivePresentation.SlideShowWindow.View.Previous;

// aller à la dernière diapo
PowerPointApp.ActivePresentation.SlideShowWindow.View.Last;

// afficher le nom de la présentation
ShowMessage(Format('Current slidename: %s',
[PowerPointApp.ActivePresentation.SlideShowWindow.View.Slide.Name]));

// fermer powerpoint
PowerPointApp.Quit;
PowerPoint := UnAssigned;
end;