
¿COMO CREAR CERTIFICADOS O DIPLOMAS MASIVOS EN POWER POINT?
A traves de una macro vamos a utilizar una combinación de correspondencia entre una base de datos que tenemos en excel y un diseño de certificado o diploma en power point.
Con esta macro vamos a poder a realizar lo siguiente.
- Realizar combinación de correspondencia entre excel y power point
Importante que para utilizar la macro debemos de tener habilitados el menú de programador o desarrollador dependiendo de la versión de excel que tengas. En este CORTO VIDEO te explico como lo puedes HABILITAR
Para ilustrar el ejemplo en las siguiente imagenes tenemos la base de datos de excel donde tenemos el nombre, curso, horas y ciudad y tambien tenemos el archivo en power point con el esquema de un certificado


Para ejecutar la macro debemos de tener en cuenta los siguientes puntos
El archivo de excel tiene el nombre de base de datos y la información debe de estar en la hoja como nombre BD.
El archivo de power point tiene nombre de Planilla
Las variables en power point que hacen parte a los encabezados de las bases de datos de excel deben de estar entre < > como se muestra en la imagen anterior por cada una de las variables por ejemplo <NOMBRE>, <HORAS>
Las variables en power point que hacen parte a los encabezados de las bases de datos de excel deben de estar entre < > como se muestra en la imagen anterior por cada una de las variables por ejemplo <NOMBRE>, <HORAS>
Después de que tengamos habilitado las macros debemos de insertar un botón que se encuentra en la pestaña de desarrollador o programador dependiendo de la versión y nos ubicamos en la herramienta de insertar

Entonces presionamos clic en el icono de insertar y posteriormente al icono de botón



Luego copiamos la macro que se encuentra al final de esta pagina.

En el momento de ejecutar la macro nos ubicamos a la carpeta de combinación power point y automaticamente nos crea un nuevo archivo con el nombre de Combinaciones Correspondencia donde va estar todos los diplomas, presionamos clic para abrir el archivo
En el momento de abrir el archivo de power point podemos observar que ya me utilizo la información de excel en el diploma

y me crea cada hoja por cada nombre que tenemos en la base de datos de excel, de esta manera realizamos la combinación de correspondencia entre excel y power point.

Declaramos las variables que se van a utilizar en la macro y que serían las columnas de excel.
Dim BaseDatos As Worksheet
Dim Variable1 As String
Dim Variable2 As String
Dim Variable3 As String
Dim Variable4 As String
Dim filaInicial As Long
Declaramos las variables de tipo objeto para power point
Dim CrearObjPowerPoint As Object
Dim LibroPowerPoint As Object
Dim HojaPowerPoint As Object
Dim NombreVariable As Object
Set BaseDatos = Worksheets("BD")
Set CrearObjPowerPoint = CreateObject("Powerpoint.Application")
CrearObjPowerPoint.Visible = True
Buscamos el archivo de power point
Set LibroPowerPoint = CrearObjPowerPoint.presentations.Open(ThisWorkbook.Path & "\Plantilla.pptx")
Guardamos el archivo con el nombre de Combinaciones de correspondencia, extensión de power point
LibroPowerPoint.SaveAs ThisWorkbook.Path & "\CombinacionesCorrespondencia.pptx"
filaInicial = 2
Creamos un ciclo con While
Do While BaseDatos.Cells(filaInicial, 1) <> ""
Asignamos valores a las variables
Variable1 = BaseDatos.Cells(filaInicial, 1)
Variable2 = BaseDatos.Cells(filaInicial, 2)
Variable3 = BaseDatos.Cells(filaInicial, 3)
Variable4 = BaseDatos.Cells(filaInicial, 4)
Reemplazamos los objetos de power point por las variables
Set HojaPowerPoint = LibroPowerPoint.slides(1).Duplicate
For Each NombreVariable In HojaPowerPoint.Shapes
If NombreVariable.HasTextFrame Then
If NombreVariable.TextFrame.HasText Then
NombreVariable.TextFrame.TextRange.Replace "<NOMBRE>", Variable1
NombreVariable.TextFrame.TextRange.Replace "<CURSO>", Variable2
NombreVariable.TextFrame.TextRange.Replace "<HORAS>", Variable3
NombreVariable.TextFrame.TextRange.Replace "<CIUDAD>", Variable4
End If
End If
Next
filaInicial = filaInicial + 1
Loop
Cerramos y guardamos el archivo de power point
LibroPowerPoint.slides(1).Delete
LibroPowerPoint.Save
LibroPowerPoint.Close
Seguramente quieres sabes más acerca de Excel, no te olvides darte una vuelta por las siguientes secciones disponibles para ti de manera gratuita
Canal de YouTube
Comunidad Telegram
Instagram: Aprende y Enseña Excel
Facebook: Aprende Excel Fácil
Twitter: Aprende y Enseña Excel
Hasta una próxima y te deseo el mayor de los EXITOS.
Aprende y Enseña Excel.
nelsonroyerrodriguezgalarza@gmail.com#
ResponderEliminarpor favor los macros
Hola, la macro la puedes descargar en este mismo articulo, en la parte donde dice ENLACE o DESCARGA. Muchos exitos
EliminarPor favor la marco
ResponderEliminarHola, la macro la puedes descargar en este mismo articulo, en la parte donde dice ENLACE o DESCARGA. Muchos exitos
Eliminarrosyyolster@gmail.com
ResponderEliminarHola, la macro la puedes descargar en este mismo articulo, en la parte donde dice ENLACE o DESCARGA. Muchos exitos
EliminarHola buenas tardes me puedes facilitar la macro dalelgarcia@edubc.mx porfavor. necesito hacer diplomas a mis alumnos
ResponderEliminarHola, la macro la puedes descargar en este mismo articulo, en la parte donde dice ENLACE o DESCARGA. Muchos exitos
Eliminargonzalezmartinezlilian@gmail.com por favor la macro! gracias!
ResponderEliminarHola, la macro la puedes descargar en este mismo articulo, en la parte donde dice ENLACE o DESCARGA. Muchos exitos
EliminarQue genialidad, gracias.
ResponderEliminarHola Merakima, Me alegra mucho que el contenido sea de gran valor!!! Aquí para servirte. Te deseo muchos exitos.
Eliminar