MACRO de EXCEL PARA CONECTAR EXCEL CON POWER POINT
En esta macro se muestra como se puede conectar Excel con Power Point y crear certificados, diplomas o correo en forma masiva y simple.
La macro recorre un listado de personas creando un certicado a cada una de las personas listadas en el archivo de Excel, mira el vídeo para mayor detalle.
Maneja Excel como los mejores deberías hacer click acá, si quieres aprender sobre Excel en inglés, entonces debes hacer click here. Si lo que necesitas es aprender o profundizar sobre la programación de macros con VBA este es unos de los ❤️MEJORES CURSOS de EXCEL ON LINE❤️ que he visto en internet, te lo recomiendo no te arrepentirás.
La macro conecta con Excel con Power Point, trabaja con un certificado maestro, que contiene campos que la macro va a buscar y reemplazar por los nombre y demas datos de un listado que está en Excel, primero hace una copia de la diapositiva para no dañarla y trabaja sobre la copia, modificando datos y guardando en una carpeta determinada, esto lo hace con todas las personas que se enccuentran listadas en la hoja de Excel.
CODIGO MACRO CONECTAR EXCEL CON POWER Y CREAR CERTIFICADO O DIPLOMAS EN FORMA MASIVA
Sub CrearCerticado()
Application.ScreenUpdating = False: Application.DisplayAlerts = False: On Error Resume Next
Dim objPptx As Object, bookPptx As Object, DiapPptx As Object, DiapVarPptx As Object
Set a = Sheets(«Hoja1»)
a.Range(«E2:E10000»).Delete
‘Abre archivo power point base
Set objPptx = CreateObject(«PowerPoint.Application»): objPptx.Visible = False
Set bookPptx = objPptx.presentations.Open(ThisWorkbook.Path & «\611 Conectar Excel con Power Point – Crear Certificados – Cartas\CertificadoMaestro.pptx»)
uf = a.Range(«A» & Rows.Count).End(xlUp).Row
For x = 2 To uf
Set DiapPptx = bookPptx.slides(1).Duplicate
For Each DiapVarPptx In DiapPptx.Shapes
If DiapVarPptx.HasTextFrame Then
DiapVarPptx.TextFrame.TextRange.Replace «<Nombre>», a.Cells(x, «A»)
DiapVarPptx.TextFrame.TextRange.Replace «<Apellido>», a.Cells(x, «B»)
DiapVarPptx.TextFrame.TextRange.Replace «<Fecha>», a.Cells(x, «C»)
DiapVarPptx.TextFrame.TextRange.Replace «<Titulo>», a.Cells(x, «D»)
End If
Next DiapVarPptx
‘Determina nombre de los ficheros
nomfic = a.Cells(x, «A») & » » & a.Cells(x, «B») & » » & a.Cells(x, «D»)
nomjpg = ThisWorkbook.Path & «\611 Conectar Excel con Power Point – Crear Certificados – Cartas\» & nomfic & «.jpg»
nompdf = ThisWorkbook.Path & «\611 Conectar Excel con Power Point – Crear Certificados – Cartas\» & nomfic & «.pdf»
‘Guarda la diapositiva 2 en formato jpg y pdt
bookPptx.slides(2).Export nomjpg, «JPG»
a.Cells(x, «E») = nomjpg ‘Escribe la ruta en excel
bookPptx.slides(2).Export nompdf, «PDF»
bookPptx.slides(2).Delete
Next x
‘Cierra Power Point cuando termina de realizar todos los certificados
bookPptx.Save: bookPptx.Close: objPptx.Quit
Application.ScreenUpdating = True: Application.DisplayAlerts = True
End Sub
LINK PARA DESCARGA MACRO CONECTAR EXCEL CON POWER POINT Y CREAR CERTIFICADOS EN FORMA MASIVA Y FACIL
Descarga el fichero usado como ejemplo en este post y en el vídeo explicativo, el mismo es totalmente gratuito y su uso es libre, solicito aportar para sostener esta web, si está dentro de tus posibilidades, desde ya muchas gracias.
Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página, CLICK para descargar en ejemplo en forma gratuita.
If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.
Donate:
⏩Cuenta Paypal: https://paypal.me/programarexcel
⏩Cuenta Bitcoin: 1KBGGb8fyDzyR3X1Rie6m7VguzaAfngNbd
⏩Cuenta Ether: 0x41Bbd24556914C83a31217eBb3BC49789b66e407
⏩Cuenta Skrill: marcrodos@yahoo.es
⏩Cuenta Neteller: marcrodos@yahoo.es
⏩Apoya mi trabajo https://www.patreon.com/programarexcel
⏩Sígueme en DTube: https://d.tube/#!/c/programarexcel01
⏩ Sígueme en Odysee: https://odysee.com/@programarexcel:3