Excel Avanzado

Macros, Vba en Excel y muchos ejemplos de nuestro Curso de Excel Avanzado

Excel Avanzado
b

Creación de PPT

| 5 Comments

 

(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:

  1. 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

5 Comments

  1. Hola
    Una consulta, seria bueno que cuelgues el ejemplo para replicarlo y mejorarlo. Gracias.

  2. Dim archivoPPT As PowerPoint.Application
    no se puede encontrar el proyecto o biblioteca?
    este error se visualiza con Excel 2007
    como le hago?

  3. 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!

  4. Hola, quisiera en lugar de un grafico, pegar un rango de celdas y con el formato original de Excel.. como deberia modificar el codigo?…

  5. 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

Deja un comentario

Required fields are marked *.


Excel Avanzado located at , Lima, Perú . Reviewed by usuarios rated: 4.7 / 5