(Para una mayor visualización de la imagen, hacer click en la misma)
Código para la Creación de un PPT a partir de gráficas en excel
Para poder usar este código se deben tener todas las gráficas en una hoja. La macro realizará los siguientes pasos:
- Definir las variables
2. Ver si existe el archivo ppt y si no es así crearlo
3. Mostrar el Power Point y crear una diapositiva por gráfica
(Para una mayor visualización de la imagen, hacer click en la misma)
4. Seleccionar las gráficas y pegarlas en las diapositivas como imágenes
(Para una mayor visualización de la imagen, hacer click en la misma)
5. Colocar las imágenes en una posición adecuada dentro de la diapositiva
6. Copiar el Título de la gráfica y colocarlo como Título de la Diapositiva
(Para una mayor visualización de la imagen, hacer click en la misma)
La hoja excel se encuentra de esta forma:
La Presentación queda de esta forma:
PD: No olvidar que se debe activar la librería de “microsoft Power Point” (en Herramientas, Referencias)
Elaborado por: Dalia Vasquez
Publicaciones relacionadas:
Formulario en VBA aplicado a la creación de una Agenda telefónica
Excel Avanzado: Creación de Gráfico de Transacciones Bancarias
Creación de Gráfico aplicado a manejar información de ventas y saldos en empresas
Creación de gráfico aplicado a visualizar el número de faltas de los trabajadores
Creación de una PPT con VBA
Creación de un listado de Archivos
Creación de gráficos aplicado a ventas
Creación de gráficos con macros (parte 1)
13/02/2013 at 1:14 pm
Hola
Una consulta, seria bueno que cuelgues el ejemplo para replicarlo y mejorarlo. Gracias.
15/05/2014 at 10:28 pm
Dim archivoPPT As PowerPoint.Application
no se puede encontrar el proyecto o biblioteca?
este error se visualiza con Excel 2007
como le hago?
29/07/2014 at 3:47 pm
Buenas tardes:
Excelente manera de poder plasmar en un ppt información que se tenga en un Excel, sobre todo porque te permite en una reunión mostrar en un ppt datos numéricos de análisis y que de ellos dependa una toma de decisión.
Porfavor un ejemplo.
Gracias!
14/10/2014 at 1:24 pm
Hola, quisiera en lugar de un grafico, pegar un rango de celdas y con el formato original de Excel.. como deberia modificar el codigo?…
25/07/2016 at 7:52 pm
Hola,
El código para insertar el titulo de la diapositiva no me funciona, y no he encontrado una solución.
diapositiva.Shapes(1).TextFrame.TextRange.Text= grafica.Chart.ChartTitle.Text
A que se puede deber?
Salu2