codigo vba para power point.docx

Crear presentación PowerPoint con VBA Excel es una gran herramienta para el manejo de datos y la creación de gráficos, pero cuando llega el momento de hacer una presentación en público generalmente utilizamos PowerPoint PowerPoint por los beneficios que ofrece a los presentadores. Sin embargo el proceso de copiar y pegar los gráficos de Excel a una presentaci presentación ón PowerPoint puede ser tardado y muy repetitivo. Hoy aprenderemos como llevar todos los gráficos contenidos en un libro de Excel hacia una presentación PowerPoint con solo ejecutar una macro y en el proceso aprenderemos un poco más de VBA. Así que sin más preámbulos comencemos a escribir código. Librería de Objetos PowerPoint Para poder utilizar las instruccione instrucciones s VBA que nos permiten interactuar con PowerPoint es necesario agregar una referencia hacia la Librería de objetos de PowerPoi PowerPoint. nt. Para hacerlo abrimos el Editor de Visual Basic y vamos a la opción Herramientas > Referencias y se mostrará el cuadro de diálogo Referencias.

Busca la librería llamada Microsoft PowerPoint Object Library. En mi caso tengo instalada la versión 14.0 que se refiere a la versión de PowerPoint 2010. Una vez seleccionada la librería haz clic en el botón Aceptar y estaremos listos para utilizar los objetos de PowerPoint desde nuestra macro en Excel. Macro para crear archivo PowerPoint El primer paso en la creación de la macro será insertar un nuevo módulo de código para colocar la subrutina que para este ejemplo he llamado CrearPowerPoint. CrearPowerPoint. Las primeras líneas de código las utilizaremos para definir las variables de nuestra macro.

Las variables que utilizaremos son las siguientes: 

archivoPPT: variable que tendrá una referencia al objeto PowerPoint.Application el cual nos permite interactuar con PowerPoint



diapositiva: variable que representará una diapositiva dentro de la presentación PowerPoint



hojaXLS: variable que contendrá una referencia a un objeto Excel.Worksheet y que será de utilidad para recorrer todas las hojas de nuestro libro.



grafico: variable que hará referencia a un objeto que representará cada gráfico del libro de Excel.

Continuando con la construcción de la macro, agregaré un par de instrucciones para crear una instancia del objeto PowerPonit.Application en la variable archivoPPT y posteriormente crearé la presentación PowerPoint:

Copiar cada gráfico a una diapositiva Una vez que hemos creado la presentación debemos centrarnos en la parte más importante de nuestra macro que es el bucle que recorrerá todas las hojas del libro Excel y por cada gráfico encontrado insertará una nueva diapositiva en la presentación PowerPoint para posteriormente copiar el gráfico de Excel:

Puedes observar dos bucles For Each. El primero es para recorrer todas las hojas del libro y el segundo para recorrer todos los gráficos dentro de una misma hoja. De esta manera, no importa la cantidad de gráficos que tengas en cada hoja, la macro insertará una diapositiva para cada uno de ellos. Después de crear la diapositiva se copiará el gráfico y finalmente se hace el centrado de la imagen dentro de la diapositiva. Comprobación de la macro Tengo un archivo de Excel que tiene 2 hojas y tres gráficos que están distribuidos de la siguiente manera. La hoja Temperatura tiene 1 gráfico y la hoja Viento tiene 2 gráficos:

Para ejecutar la macro voy a la ficha Programador , pulso el botón Macros y selecciono la macro recién creada. Como resultado obtengo una presentación de PowerPoint que contiene una diapositiva para cada uno de los gráficos del libro de Excel:

De esta manera hemos copiado todos los gráficos de un libro de Excel a una presentación de PowerPoint de manera automática. Es muy importante recordar que la presentación PowerPoint creada por la macro no está almacenada en disco duro por lo que es necesario guardar el archivo desde PowerPoint. Para obtener el código VBA creado en este ejemplo puedes descargar el libro de Excel que he utilizado o puedes copiar el código que coloco a continuación:

1

Sub CrearPowerPoint()

2 3 4 5 6 7

'Definición de variables Dim archivoPPT As PowerPoint.Application Dim diapositiva As PowerPoint.Slide Dim hojaXLS As Excel.Worksheet Dim grafico As Excel.ChartObject

8 9 10

'Instancia del objeto PowerPoint.Application Set archivoPPT = New PowerPoint.Application

11 12 13

'Creamos una presentación PowerPoint archivoPPT.Presentations.Add

14 15 16 17

'Recorrer tods los gráficos en nuestro libro de Excel For Each hojaXLS In ThisWorkbook.Worksheets For Each grafico In hojaXLS.ChartObjects

18

'Agregar nueva diapositiva archivoPPT.ActivePresentation.Slides.Add _ archivoPPT.ActivePresentation.Slides.Count + 1, ppLayoutBlank archivoPPT.ActiveWindow.View.GotoSlide _ archivoPPT.ActivePresentation.Slides.Count Set diapositiva = archivoPPT.ActivePresentation.Slides( _ archivoPPT.ActivePresentation.Slides.Count)

19 20 21 22 23 24 25 26

'Copiar gráfico en la dispositiva hojaXLS.ChartObjects(grafico.Index).Chart.CopyPicture diapositiva.Shapes.Paste.Select

27 28 29 30

'Centramos la imagen insertada archivoPPT.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, msoTrue archivoPPT.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, msoTrue

31 32 33 34 35 36

Next Next

37 38 39 40 41 42

'Eliminamos las instancias creadas Set diapositiva = Nothing Set archivoPPT = Nothing Set grafico = Nothing Set hojaXLS = Nothing

43 44

End Sub

Sub CrearPowerPoint() 'Definición de variables Dim archivoPPT As PowerPoint.Application Dim diapositiva As PowerPoint.Slide Dim hojaXLS As Excel.Worksheet Dim grafico As Excel.ChartObject 'Instancia del objeto PowerPoint.Application Set archivoPPT = New PowerPoint.Application 'Creamos una presentación PowerPoint archivoPPT.Presentations.Add 'Recorrer tods los gráficos en nuestro libro de Excel For Each hojaXLS In ThisWorkbook.Worksheets For Each grafico In hojaXLS.ChartObjects 'Agregar nueva diapositiva archivoPPT.ActivePresentation.Slides.Add _ archivoPPT.ActivePresentation.Slides.Count + 1, ppLayoutBlank archivoPPT.ActiveWindow.View.GotoSlide _ archivoPPT.ActivePresentation.Slides.Count Set diapositiva = archivoPPT.ActivePresentation.Slides( _ archivoPPT.ActivePresentation.Slides.Count) 'Copiar gráfico en la dispositiva hojaXLS.ChartObjects(grafico.Index).Chart.CopyPicture diapositiva.Shapes.Paste.Select 'Centramos la imagen insertada

archivoPPT.Acti veWindow.Selectio n.ShapeRange.Ali gn msoAlignCenters, msoTrue archivoPPT.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, msoTrue Next Next 'Eliminamos las instancias creadas Set diapositiva = Nothing Set archivoPPT = Nothing Set grafico = Nothing Set hojaXLS = Nothing End Sub