Pegar gráficos de excel en power point

Hola, mi duda es poder pegar gráficos de excel a una diapositiva en power point, seria ideal si pudiera pegarlo en un lugar especifico de la diapositiva y como un vinculo al gráfico que se encuentra en excel, para que se actualize en la diapositiva al cambiar la información del gráfico, lo que he podido lograr hasta la fecha es solo poder pegarlo como objeto de gráfico mas no pegarlo como vinculo, adjunto el código que he generado hasta la fecha con ayuda de la web con un poco de indagación y lógica, espero me puedan ayudar. Gracias.
Sub Tabla_de_Excel_a_Ppoint()
'La macro copia el rango de Excel seleccionado en PowerPoint
'copiar rango seleccionado
Selection.Copy
'objeto para acceder al PowerPoint
Dim ObjPowerPoint As New PowerPoint.Application
'objeto para crear la presentación
Dim Presentación As PowerPoint.Presentación
'objeto diapositiva
Dim diapositiva As PowerPoint.Slide
Set ObjPowerPoint = CreateObject("Powerpoint.Application")
ObjPowerPoint.Visible = True
Set Presentación = ObjPowerPoint.Presentations.Add
Set diapositiva = Presentación.Slides.Add(1, ppLayoutBlank)
'Pegado de las celdas Excel como vínculo
'diapositiva.Shapes.PasteSpecial(link:=True).Select
ActiveSheet.ChartObjects(1).CopyPicture
diapositiva.Shapes.Paste.Select
'diapositiva.Shapes.PasteSpecial(link:=True).Select
'Libera los objetos PowerPoint
Set ObjPowerPoint = Nothing
Set Presentación = Nothing
Set diapositiva = Nothing
End Sub