Aug 22
Ejemplo de como podemos realizar automatizaciones con PowerPoint; en ese caso se aplica un diseño y se agregan algunos objetos a una presentación.
oPPT = CreateObject("PowerPoint.Application")
oPPT.Visible = .T.
cRutaTmpl="c:Archivos de programaMicrosoft Office"+;
"TemplatesPresentation DesignsGlobe.pot"
oPres = oPPT.Presentations.Add
oPres.ApplyTemplate(cRutaTmpl)
oSlide = oPres.Slides.Add(1,
2)
oShapes = oSlide.Shapes
oTitulo = oShapes.Item("Rectangle 2")
oTitulo.TextFrame.TextRange.Text= "Prueba de Titulo"
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
