La macro de hoy es muy sencilla pero muy útil,
nos permite exportar gráficos de Excel a PowerPoint:
En el documento de Excel tengo
generado dos gráficos, que exportaremos a power point con la macro.
Hemos agregado una figura que
utilizaremos como botón para ejecutar la
macro:
Creamos una referencia a Microsoft
Power Point:
Este es el código de la macro:
Definimos cuatro variables:
WPPT que representa power point , WSLD que representa el slide de la
presentación , WS define nuestra hoja de cálculo, GR los gráficos de la hoja de
cálculo.
Creamos la presentación en
power point con la instrucción WPPT.Presentations.Add,
dentro de un ciclo recorremos todos los graficos de la hoja de cálculo y los
agregamos a la presentación, antes de esto creamos un nuevo slide en la presentación.
Con estas instrucciones agregamos el slide:
WPPT.ActivePresentation.Slides.Add _
WPPT.ActivePresentation.Slides.Count + 1, ppLayoutBlank
WPPT.ActiveWindow.View.GotoSlide _
WPPT.ActivePresentation.Slides.Count
Set WSLD
= WPPT.ActivePresentation.Slides( _
WPPT.ActivePresentation.Slides.Count)
Con esta instrucción copiamos la
imagen de Excel a PowerPoint:
WS.ChartObjects(GR.Index).Chart.CopyPicture
WSLD.Shapes.Paste.Select
Después centramos la imagen en la presentación:
WPPT.ActiveWindow.Selection.ShapeRange.Align
msoAlignCenters, msoTrue
WPPT.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, msoTrue
Si ejecutamos la macro tendremos el
siguiente resultado:
Puedes descargar el documento con la macro siguiendo este enlace.
Espero que esta macro te sea de utilidad,
si tienes dudas escríbenos a macrosymacros1@gmail.com.
