Pegar gráfico de excel 2007 como vinculo a ppt de power point 2007

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 y 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
Dim ObjPowerPoint As New PowerPoint.Application
Dim Presentación As PowerPoint.Presentación
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)
'diapositiva.Shapes.PasteSpecial(link:=True).Select
ActiveSheet.ChartObjects(1).CopyPicture
diapositiva.Shapes.Paste.Select
'diapositiva.Shapes.PasteSpecial(link:=True).Select //aquí me presenta un error en la macro por eso esta como comentario.
Set ObjPowerPoint = Nothing
Set Presentación = Nothing
Set diapositiva = Nothing
End Sub