Scribd
Cargar
23 vistas4 páginas

Generar Diplomas en PowerPoint con Excel

Este código en Visual Basic para Aplicaciones crea una presentación de PowerPoint dinámica a partir de datos en una hoja de cálculo de Excel. Declara variables para acceder a la hoja de datos, crear objetos de PowerPoint y manipular diapositivas y formas. Lee fila por fila los datos, duplica una diapositiva plantilla, reemplaza texto en cuadros por los valores de las celdas y guarda la presentación actualizada.

Cargado por

Ramses Reynoso
Derechos de autor
© All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como DOCX, PDF, TXT o lee en línea desde Scribd
23 vistas4 páginas

Generar Diplomas en PowerPoint con Excel

Este código en Visual Basic para Aplicaciones crea una presentación de PowerPoint dinámica a partir de datos en una hoja de cálculo de Excel. Declara variables para acceder a la hoja de datos, crear objetos de PowerPoint y manipular diapositivas y formas. Lee fila por fila los datos, duplica una diapositiva plantilla, reemplaza texto en cuadros por los valores de las celdas y guarda la presentación actualizada.

Cargado por

Ramses Reynoso
Derechos de autor
© All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como DOCX, PDF, TXT o lee en línea desde Scribd

Dim shtDatos As Worksheet

'Declaramos las variables que seria las columnas del excel

Dim strNombre As String

Dim filaInicial As Long

'creamos nuestras variables de tipo objeto

'objppt: Prepara archivo ppt, objpres crea un nuevo archivoppt, objs1d crea las diapostivas,
objshp almacena los objetos de tipo cuad:

Dim objPPT As Object

Dim objPres As Object

Dim objs1d As Object

Dim objShp As Object

'llamamos la hoja en donde vamos a obtener los datos y se lo asignamos al objeto shtDatos

Set shtDatos = Worksheets("Datos")

Set objPPT = CreateObject("[Link]")

[Link] = True
'buscamos la plantillaque en este caso se llama Diploma-1 la cual se encuentra en el mismo
directorioque el archivo

' y se lo asignamos al objeto pbjPres

Set objPres = [Link]([Link] & "\[Link]")

'una ves asignada la plantilla diplomas-1 al objeto objPres guardamos el objeto con el nombre de
crear [Link]

[Link] [Link] & "\crear [Link]"

'esta variable nos indicara donde iniciar a obtener los datos, en este caso a partir de la fila 2'

filaInicial = 2

'creamos un ciclo, la instruccion es que, mientras es la variablefilaInicial y columna 1 sea


diferente(<>) a campo vacio hacer los siguiente

Do While [Link](filaInicial, 1) <> ""

'obtenemos el dato de la fila inical, columna 1 y se lo asignamos a la variable strNombre'

strNombre = [Link](filaInicial, 1)

' del objeto objpres(Fichas [Link]) duplicsmos la primera diapositiva


Set objs1d = [Link](1).Duplicate

' ahora hara un recorrido de las formas que contenga la diapositiva, supongo que los

For Each objShp In [Link]

' si la forma es un cuadro de texto

If [Link] Then

' si la formacuadro de texto tiene texto

If [Link] Then

'reemplazar el texto"<nombre>" del cuadro de texto por lo que contiene la variable


strNombre y asi sucesivamnete

[Link] "<Nombre>", strNombre

'[Link] "<Calificación>", strCalificación

End If

End If

Next

' con esta instruccion nos aseguramos de pasar a la siguenete fila de la hoja de excel

filaInicial = filaInicial + 1

Loop
'ahora borramos la diapositiva que nos sirvio como plantilla'

[Link](1).Delete

'guardamos los cambio que se hicieron en la diapositiva "crear [Link]'

[Link]

[Link]

End Sub

También podría gustarte