Enviar gráficos de Excel a un PowerPoint

A continuación se presenta un caso recurrente en el trabajo, por ejemplo cuando se te pide que hagas una presentación del control de algún proceso que se ha estado analizando. La mejor forma de presentar las evoluciones de los KPI´s es mediante gráficos interactivos, dinámicos y de rápidos entendimiento. Sin embargo, resulta tedioso si es que se tiene muchos de ellos en el Excel y se necesita estar copiando y pegando al Power Point donde se realizará la presentación. A continuación se muestra ejemplos de los gráficos y su tabla de datos:

(Para mayor visualización de la imagen, hacer click en la misma)

Por lo tanto, se hará el uso de macros para hacer esta exportación mucho más sencilla.

El código es el siguiente:

-Aquí se declaran las variables a utilizar

Sub CopyAllChartsToPresentation()

Dim PP As PowerPoint.Application
Dim PPPres As PowerPoint.Presentation
Dim PPSlide As PowerPoint.Slide
Dim i As Integer

-Aquí contrasta si existen gráficos en la hoja activa y si no lanza un mensaje de que no hay gráfico
If ActiveSheet.ChartObjects.Count < 1 Then
MsgBox “NoGrafico”
Exit Sub
End If

-Aqui abre Power Point y crea una nueva presentacion
Set PP = New PowerPoint.Application
Set PPPres = PP.Presentations.Add
PP.Visible = True

-Ahora va a iterar desde 1 hasta la cantidad de gráficos que exista en la hoja seleccionada, en nuestro caso hasta tres
For i = 1 To ActiveSheet.ChartObjects.Count

-Aqui esta copiando el gráfico como una imagen
ActiveSheet.ChartObjects(i).Chart.CopyPicture _
Size:=xlScreen, Format:=xlPicture

-Aqui la macro para un momento, para que permita copiar la imagen, es decir, le da una pausa

Application.Wait (Now + TimeValue("0:00:1"))
ppSlideCount = PPPres.Slides.Count
Set PPSlide = PPPres.Slides.Add(SlideCount + 1, ppLayoutBlank)
PPSlide.Select

-Aqui se pega el grafico, hasta el ultimo
PPSlide.Shapes.Paste.Select
PP.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True
PP.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True
Next i

Set PPSlide = Nothing
Set PPPres = Nothing
Set PP = Nothing
End Sub

-Se adjunta el archivo utilizado, el cual funciona correctamente.

Enviar gráficos de Excel a un PowerPoint

Por: Katherine Angela

Nota: Se requiere desde el editor de VBA, acceder a Herramientas, Referencias, e incluir la librería Microsoft PowerPoint 14 o superior.

(Para mayor visualización de la imagen, hacer click en la misma)