😱 Como realizar COMBINACIÓN de CORRESPONDENCIA entre EXCEL y POWERPOINT - [📜 DIPLOMAS MASIVOS]

Aprende a realizar combinación de correspondencia entre excel y powerpoint con macros, esta herramienta nos permite realizar certificados, diplomas masivamente entre excel y powerpoint. 

¿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

Revisa el siguiente video para que aprendas a utilizar la macro y en la parte inferior del articulo se encuentra el enlace para que la puedas descargar

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 y power point deben de estar guardado en la misma carpeta y esta carpeta debe de tener el nombre de combinación powerpoint

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>

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

y arrastramos con el mouse el tamaño como queremos el botón.

Luego cambiamos el nombre de la macro y le ponemos para el ejemplo el nombre que desees y posteriormente nos vamos para el botón de nuevo

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.

La macro consisten en lo siguiente

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

    

En el siguiente ENLACE puedes DESCARGAR la macro para combinación de correspondencia entre dos hojas de excel.

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.