Macro para abrir powerpoint desde excel
Expertos buenas tardes:
Necesito su ayuda para saber cual es la rutina que permita abrir Powerpoint y pegar una imagen de excel.
Sucede que cuento con un archivo excel que tiene un cuadro resumen y lo que usualmente hago es seleccionar este resumen copiarlo y luego abrir ppt y pegar como imagen.
1 Respuesta
Respuesta de Dante Amor
2
H o l a:
Primero, activa en vba las referencias de power point. Para activar esta referencia deberemos ejecutar el editor de VBA, presionando Alt+F11, y navegando por el menú Herramientas > Referencias seleccionaremos aquellas referencias que sean de utilidad, en nuestro caso Microsoft PowerPoint 11.0 Object Library:
Utiliza la siguiente macro:
Sub a_PowerPoint()
'Act.Por.Dante Amor
'referencia http://excelforo.blogspot.mx/2011/04/macro-para-copiar-y-pegar-un-rango-de.html
Dim ObjPowerPoint As New PowerPoint.Application
Dim Presentacion As PowerPoint.Presentation
Dim diapositiva As PowerPoint.slide
'
Sheets("Hoja3").Range("A1:D10").Copy
ObjPowerPoint.Visible = True
Set Presentacion = ObjPowerPoint.Presentations.Add
Set diapositiva = Presentacion.Slides.Add(1, ppLayoutBlank)
diapositiva.Shapes.PasteSpecial(link:=True).Select
'
Set ObjPowerPoint = Nothing
Set Presentacion = Nothing
Set diapositiva = Nothing
End SubCambia "Hoja3" por la hoja que tiene tu cuadro y el rango "A1:D10" por el rango que quieras copiar.
