[Neftali [Germán.Estévez]]

Código Delphi [-]
var 
  PowerPoint: Variant; 
begin 
  try 
    PowerPoint := GetActiveOleObject('PowerPoint.Application');    
  except 
    PowerPoint := CreateOleObject('PowerPoint.Application');    
  end; 
  PowerPoint.Visible := True;

Link.