Excel - Macro Copiar Gráficos Excel a Power Point

   
Vista:

Macro Copiar Gráficos Excel a Power Point

Publicado por Alejandro (1 intervención) el 28/10/2014 00:30:32
Hola a todos!
Mi problema es el siguiente.
Por un lado tengo un excel con 3 tablas dinámicas de la que salen 3 gráficos en una misma hoja.
Por otro tengo un PPT con 30 Slides.

Lo que necesito es una macro que copie los 3 graficos juntos (Chat1; Chart2; Chart3) y los pegue como imagen en el Slide2 de ppt.
Luego que cambie el filtro y copie los nuevos 3 graficos y los pegue como imagen en el Slide3, pero sin crear una slide nueva. (que los pegue en el slide ya creado)

El macro de los filtros para las tablas ya lo tengo así que con el codigo para pasar los graficos es suficiente. Yo luego me encargo de compilar.

Desde ya muchas gracias.

Saludos

Ale
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de JuanC

Macro Copiar Gráficos Excel a Power Point

Publicado por JuanC juanc2942@gmail.com (1052 intervenciones) el 28/10/2014 11:31:26
para exportar los gráficos como imagen...

1
2
3
4
5
Dim C As Chart
Dim sFileName$
sFileName = ActiveWorkbook.Path & "\" & Mid(CStr(Rnd), 3) & ".gif"
Set C = Worksheets("Hoja1").ChartObjects(1).Chart
C.Export sFileName

Saludos, desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar