Crear presentaciones de PowerPoint desde Excel VBA - 01 Trasladar texto
Вставка
- Опубліковано 18 лис 2024
- ¡Bienvenidos a un nuevo video de Inteligencia Eficiente! 💡
Comenzaremos con una serie de videos donde aprenderemos a generar macros en Excel que interactúen con PowerPoint con el fin de agilizar el proceso de creación de presentaciones.
Descarga el libro de ejemplo:
www.mediafire....
¿Necesitas asesoría personalizada? ¡Contáctame!
💻 Facebook: / inteligenciaeficiente
📧Gmail: inteligenciaeficienteYT@gmail.com
Me ayudarías bastante si lo compartes con todas las personas a las que creas que puede interesarles este video. 🤩 🙏
Excelente trabajo, felicidades, muy buen aporte
¡Mil gracias y felicitaciones! Excelente video!
¡Gracias a ti Emilio! :D
Muchas gracias por compartir tu trabajo !
Tengo una duda, tendrás otro video donde la macro mediante rango de celdas copie y pegue al PowerPoint ? Es algo adicional que estaría genial complementarlo con tu macro.
Les dejo el comando ya echo aqui abajo, solo modifiquenlo segun sus variables xD
PDD: Gracias mano
¡Gracias por compartir y comentar! :D
@@InteligenciaEficiente a ti hermano, me encanta tu contenido :D
hola, ¿hay manera de añadir despues que coja también información de otra tabla en otra hoja del mismo excel? Gracias!
¡Hola María! Veo que ya pudiste resolver el problema, gracias por comentar y espero que el contenido haya sido de utilidad. Un saludo!!
existe alguna manera de hacer lo mismo que hiciste pero en lugar de que tome los datos de una tabla los tome de un formulario que se llena ???
Hola, sí es posible, se necesita ajustar los parámetros para que ahora los tome del formulario. ¡Saludos!
Hola muchas gracias por el aporte, te comento que me da error en esta parte:
Set mainSht = ThisWorkbook.Sheets("Sheet1")
me dice Variable de objeto o bloque With no establecido
Desde ya muy agradecido
Hola Ale, este error puede deberse a que no hay una hoja llamada "Sheet1" en tu libro. ¡Saludos!
Hermano, una duda. Cambie al window 11 pero ahora me marca error "70" Permiso denegado, tengo cuenta de administrador y si le doy a "depurar" me sale que el error esta en esta linea "Set pptPress = pptApp.Presentations.Open(Filename:=pptFilePath)"
Si tienen el mismo error, revisen que la ruta "C2" sea la del archivo de powerpoint, no la carpeta sola jajaja
Me alegra que hayas podido resolverlo, un abrazo!! :)
Hola, una pregunta como se podría hacer los mismo, pero que solo se actualice sin que abra la presentación? (por que ya esta abierta y proyectada, la idea es poder actualizar N cantidad de veces )
¡Hola! Es necesario abrir la presentación, sin embargo también es posible que la macro haga las actualizaciones sobre una copia del archivo y que mediante el comando presentations.visible = False, los cambios que se van realizando no sean visibles
@@InteligenciaEficiente mil gracias por la respuesta. Agradezco tu ayuda.
Estoy trabajando en un archivo gráfico con información en Excel que me está dando dolor de cabeza.
Tienes algún Mail o contacto para poder contarte un poco y saber qué opciones me puedes dar… 🙈🙈🙈
De antemano mil gracias por tu la videos. Son un gran aporte
Saludos
CCD
@@carloscond4691 claro que sí, puede contactarme a inteligenciaeficienteYT@gmail.com ¡Saludos!
@@InteligenciaEficiente listo. Te envíe un msj. Saludos
Hola, me sale un error en el código
Sub TextToPPT (slide As PowerPoint.slide, strIdentifier As String, strReplacement As String)
Me aparece un mensaje que dice:
No se ha definido el tipo definido por el usuario.
Me puedes ayudar en saber que le falta, por favor.
¡Hola! He recibido tu correo y estaré respondiendo por ese medio. ¡Saludos y gracias por comentar!
Hola. Muchas gracias por tu video
Me encuentro con un error "El valor especificado se encuentra fuera de los límites"
Señala en la depuración "shape.TextFrame.TextRange.Text = strReplacement"
Me aparece error para reemplazar el segundo shape en la misma diapositiva, aún teniendo el nombre correcto el el shape.
Muchas gracias
Hola Danny, podrías enviarme tu macro al correo que dejo en la descripción para poder ayudarte. ¡Saludos!
Hola, no tengo ningun error en el codigo, pero solo va a la ppt y borra lo que hay en el cuadro de texto, pero no escribe el nuevo texto :(
¡Hola! No entiendo muy bien el problema pero podrías contactarme al correo en la descripción mayor detalles para poder apoyarte de mejor manera. ¡saludos!
Hola, muchas gracias por tu video, me aparece un error al insertar As y lo siguiente, me aparece error de compilación. ¿Me podrias ayudar? Te lo agradezco mucho
¡Claro que sí, puedes contactarme al correo que dejo en la descripción para poder revisar la macro y ayudarte a corregirlo!
CUAL SERIA EL COMANDO PARA PODERLO GUARDAR LA PRESENTACION EN PDF DIRECTO Y CON UN NOMBRE QUE TENGA EN UNA CELDA DE EXCEL
¡Hola! Para guardar una presentación de PowerPoint como PDF desde VBA y asignarle el nombre de una celda de Excel, puedes usar el siguiente código en Excel VBA:
Sub GuardarPPTComoPDF()
Dim pptApp As Object
Dim pptPres As Object
Dim ruta As String
Dim nombreArchivo As String
' Abrir PowerPoint
Set pptApp = CreateObject("PowerPoint.Application")
' Abrir la presentación de PowerPoint
Set pptPres = pptApp.Presentations.Open("C:
uta\de\tu\presentacion.pptx")
' Obtener el nombre del archivo desde una celda de Excel (por ejemplo, la celda A1)
nombreArchivo = ThisWorkbook.Sheets("Hoja1").Range("A1").Value
' Definir la ruta y el nombre del archivo PDF
ruta = "C:
uta\donde\guardar\" & nombreArchivo & ".pdf"
' Guardar la presentación como PDF
pptPres.SaveAs ruta, 32 ' 32 es el formato para PDF
' Cerrar la presentación y PowerPoint
pptPres.Close
pptApp.Quit
' Liberar objetos
Set pptPres = Nothing
Set pptApp = Nothing
MsgBox "Presentación guardada como PDF con el nombre: " & nombreArchivo
End Sub
Explicación del código:
Este código abre una presentación de PowerPoint y la guarda como PDF.
El nombre del archivo PDF se toma de una celda de Excel (en este caso, la celda A1 de la hoja llamada "Hoja1").
Asegúrate de ajustar las rutas de la presentación de PowerPoint y la carpeta donde quieres guardar el PDF.
HOLA HE SEGUIDO LOS PASO Y ME ARROJA UN ERROR QUE DICE LO SIGUIENTE "SE ESPERABA UN TIPO DEFINIDO POR EL USUARIO, NO UN PROYECTO"
Hola José, puedes enviarme tu macro al correo que dejé en la descripción para poder revisarla con mayor detalle, saludos :D
Hola
Obtengo un error 91 cuando hago Set pptPres = pptApp.Presentations.Open(Filename:=pptFilePath) y la verdad es que la presentation PP existe en la carpeta. He intentado con varios formatos y ubicaciones pero nada resulta.
A que se debe el error ?
Muchas gracias de antemano
¡Hola! Me podrías enviar tu macro al correo que dejo en la descripción para revisarlo. ¡Saludos!
Tengo el mismo error, cuál sería la solución?
tengo el mismo error y me da pena que no haya respondido tu pregunta.
@@jaredvelazquez4862 Hola Jared, puede deberse a que no se declaró correctamente la variable pptApp as New PowerPoint.Application o bien que no se haya activado la referencia a Microsoft PowerPoint Object Library, a partir del minuto 16:27 se toca ambos temas.
@@reginanajarro7287 Hola Regina, gracias por tu comentario, el error puede deberse a que no se declaró correctamente la variable pptApp as New PowerPoint.Application o bien que no se haya activado la referencia a Microsoft PowerPoint Object Library, a partir del minuto 16:27 se toca ambos temas.