Ejemplo muy completo de como crear una presentación en PowerPoint con datos de una tabla y aplicarle un diseño. Luego de ejecutar el código tendrás creada la presentación con el nombre MiPresentacion.Ppt y se encontrará en C:
Use Home(2)+ "dataemployee" Alias Emp
Shared
cCrLf = Chr(13) + Chr(10)&& Salto de línea
oPPT = CreateObject("PowerPoint.Application")
oPPT.Visible
= .T.
cTmpl="c:Archivos de programaMicrosoft Office"+;
"TemplatesPresentation DesignsGlobe.pot"
oPres = oPPT.Presentations.Add
oPres.ApplyTemplate(cTmpl)
Select Emp
Scan
oSlide = oPres.Slides.Add(1,2)
oShapes = oSlide.Shapes
oTitulo = oShapes.Item("Rectangle 2")
oTitulo.TextFrame.TextRange.Text= Trim(Last_Name) + " " + Trim(First_Name)
cStr = "Cargo: "+
Trim(Title) + cCrLf
cStr = cStr + "País: " + Trim(Country) + cCrLf
cStr = cStr + "Ciudad: " + Trim(City) + cCrLf
oTitulo = oShapes.Item("Rectangle
3")
oTitulo.TextFrame.TextRange.Text= cStr
EndScan
Use in Emp
oPres.SaveAs("C:MiPresentacion.ppt")
oPres.Close
oPPT.Quit
Si tienes inquietudes, sígueme en Twitter para contactarme.
Seguir a @davamadort¿Deseas que tu sitio web aparezca en buscadores como google, yahoo, msn?
Contrata un plan de hosting en www.winnethost.com y recibes totalmente gratis el registro de tu sitio web en más de 24 buscadores, entre ellos google, yahoo, msn
El Sitio La Web de Davphantom se encuentra hospedado en WinNetHost.com
