19 de julio de 2007

Informe VFP a PowerPoint

He visto peticiones para pasar un informe de VFP a PowerPoint, aquí tengo un código para hacerlo.
*** Creamos un Objeto de PowerPoint
oPPT=CREATEOBJECT('POWERPOINT.APPLICATION')
PPTPRES=oPPT.PRESENTATIONS.ADD(1)
PPTSLIDE1=PPTPRES.SLIDES.ADD(1,1)

*** Creamos un Cuadro de Texto
oTXT1=PptSlide1.Shapes.AddTextBox(1,5,220,700,25)

WITH oTXT1
 .Line.ForeColor.RGB=RGB(180,180,180)
 .LINE.VISIBLE=.T.
 .TEXTFRAME.TEXTRANGE.TEXT='ING. ERIK REYES LIMA'
 .TEXTFRAME.TEXTRANGE.FONT.SIZE=18
 .TEXTFRAME.TEXTRANGE.FONT.BOLD=.T.
 .FILL.ForeColor.RGB = rgb(255,255,255)
 .FILL.VISIBLE=.T.
 .Shadow.ForeColor.RGB = RGB(180, 0, 119)
 .Shadow.VISIBLE=.T. 
ENDWITH

*** CREAMOS UNA LINEA
oLine1 = pptslide1.Shapes.AddLine(0,43,720,43)
WITH oLine1.Line
 .ForeColor.RGB = rgb(180,0,119)
 .Weight = 2
ENDWITH

*** CREAMOS UNA IMAGEN
PptSlide1.Shapes.Addpicture('C:\FOTOS\MIFOTO.JPG',1,1,0,0,70,40)

*** ACTIVAMOS EL POWERPOINT
OPPT.VISIBLE = .T.
[Sadex]

No hay comentarios. :

Publicar un comentario