¿Cómo mostrar UN Doc. "PowerPoint" desde un Programa en Delphi?

[MACOII]

Muchas gracias por ayudarme.

ya puede mostrar documento Word y hoja Excel desde Delphi.

Para Word:

Código Delphi [-]
var
  Word: Variant;
  Documento: Variant;
BEGIN
  (* Creas un objeto Word *)
  Word := CreateOleObject('Word.Application');
  (* Añades un documento basado en la plantilla *)
  Word.Documents.Add('c:\prueba.DOc');
  Documento := Word.Documents.Item(1);
  (* Asignas valores a los campos *)
  Word.Visible := true;
  documento.Fields.ToggleShowCodes;
  Documento.Fields.Update;

Para Excel:

Código Delphi [-]
var
  excel: Variant;
  Excel_Documento: Variant;
begin
  excel := CreateOleObject('excel.Application');
   excel.Workbooks.add('c:\libro.xls');
   excel.visible:=true;

Ahora necesito saber como Mostrar Una Plantilla "PowerPoint" desde un programa Delphi. Muchas Gracias de Antemano.

[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.

[axlrafael]

Originally Posted by MACOII

Muchas gracias por ayudarme.

ya puede mostrar documento Word y hoja Excel desde Delphi.

Para Word:


Código Delphi [-]
var
Word: Variant;
Documento: Variant;
BEGIN
(* Creas un objeto Word *)
Word := CreateOleObject('Word.Application');
(* Añades un documento basado en la plantilla *)
Word.Documents.Add('c:\prueba.DOc');
Documento := Word.Documents.Item(1);
(* Asignas valores a los campos *)
Word.Visible := true;
documento.Fields.ToggleShowCodes;
Documento.Fields.Update;





Para Excel:


Código Delphi [-]
var
excel: Variant;
Excel_Documento: Variant;
begin
excel := CreateOleObject('excel.Application');
excel.Workbooks.add('c:\libro.xls');
excel.visible:=true;





Ahora necesito saber como Mostrar Una Plantilla "PowerPoint" desde un programa Delphi. Muchas Gracias de Antemano.

Excelente justo lo que necesitaba, gracias. Saludos