EXPORTACION A PPT ???
Publicado por CORNELIUS (1 intervención) el 16/06/2010 13:59:10
Hola buenos días se les ocurre la manera de volcar datos de lotus notes(esto no es determinante puedo adaptar el código con lo que me ayudeis al que necesito) contra una plantilla .ppt (power point).
He probado incluso con un archivo .pot (plantilla de ppt) para volcar información de lotus notes alguna plantilla predefinida que me den.
El caso es que me enfrento con esto por primera vez y se me hazo raro.
Dejo una muestra de código:
Set objSlide = objPresentation.Slides.Add(1,2)
Set objShapes = objSlide.Shapes
Set objTitle = objShapes.Item("Rectangle 2")
objTitle.TextFrame.TextRange.Text = "TITULO"
Set objTitle = objShapes.Item("Rectangle 3")
objTitle.TextFrame.TextRange.Text = "RECTANGULA 3"
Set objTitle = objShapes.Item("Rectangle 4")
objTitle.TextFrame.TextRange.Text = "RECTANGULO 4"
Me crea el ppt con.. un rectangulo 2 relleno y el tres también pero no me dibuja ni rellena el rectangulo 4 en el ppt final.
Lo han hecho alguna vez??
Saben como ayudarme??
Muchas gracias y un saludo.
He probado incluso con un archivo .pot (plantilla de ppt) para volcar información de lotus notes alguna plantilla predefinida que me den.
El caso es que me enfrento con esto por primera vez y se me hazo raro.
Dejo una muestra de código:
Set objSlide = objPresentation.Slides.Add(1,2)
Set objShapes = objSlide.Shapes
Set objTitle = objShapes.Item("Rectangle 2")
objTitle.TextFrame.TextRange.Text = "TITULO"
Set objTitle = objShapes.Item("Rectangle 3")
objTitle.TextFrame.TextRange.Text = "RECTANGULA 3"
Set objTitle = objShapes.Item("Rectangle 4")
objTitle.TextFrame.TextRange.Text = "RECTANGULO 4"
Me crea el ppt con.. un rectangulo 2 relleno y el tres también pero no me dibuja ni rellena el rectangulo 4 en el ppt final.
Lo han hecho alguna vez??
Saben como ayudarme??
Muchas gracias y un saludo.
Valora esta pregunta
0