Copiar rango de celdas a powerpoint macro
Ocupo copiar un rango determinado de una pestaña llamada "info" a una hoja nueva de power point y que la guarde como presentación en una misma ruta pero con el nombre que yo le indique ya que es variable la info
Esto lo requiero con una macro que se ejecute desde mi excel
1 respuesta
Respuesta de Dante Amor
1
Te anexo la macro.
Cambia en la macro "A1:D10" por el rango que quieras copiar.
"hola.pptx" por el nombre del archivo que quieras ponerle.
Sub Tabla_de_Excel_a_Ppoint()
'Por Dante Amor
Application.ScreenUpdating = False
'La macro copia el rango de Excel seleccionado en PowerPoint
Dim ObjPowerPoint As New PowerPoint.Application
Dim Presentacion As PowerPoint.Presentation
Dim diapositiva As PowerPoint.slide
'
Sheets("info").Range("A1:D10").Copy
ObjPowerPoint.Visible = True
Set Presentacion = ObjPowerPoint.Presentations.Add
Set diapositiva = Presentacion.Slides.Add(Presentacion.Slides.Count + 1, ppLayoutBlank)
'Pegado de las celdas Excel como vínculo
diapositiva.Shapes.PasteSpecial(link:=True).Select
Application.CutCopyMode = False
Presentacion.SaveAs ThisWorkbook.Path & "\" & "hola.pptx"
Presentacion.Close
'Libera los objetos PowerPoint
Set ObjPowerPoint = Nothing
Set Presentacion = Nothing
Set diapositiva = Nothing
MsgBox "Power point creado"
End Sub[No olvides valorar la respuesta.
