Visual Basic para Aplicaciones - pegar graficos

Hola a todos. Estoy haciendo un programa que saca unos gráficos en excell que luego debería pegar en word y ahí está mi problema. He creado la aplicacion, el documento de word, la accion copiar funciona correctamente, pero no se como copiar.
Os mando mi última prueba a ver si alguien me puede echar una mano:
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
Set wdApp = GetObject(, "Word.Application")
wdApp.Visible = True
myDoc.Range.InsertAfter Text:="% de " & ActiveWorkbook.Worksheets("NutvsConsum").Cells(n, 1) & " aportado por el consumo del alimento"
Selection.Paste

Gracias

Perdon no me he expresado muy bien antes.
Estoy haciendo un programa que saca unos gráficos en excel que luego debería pegar en word y ahí está mi problema. He creado la aplicacion, el documento de word, la accion copiar funciona correctamente, pero no se como el gráfico en el nuevo documento.
Os mando mi última prueba a ver si alguien me puede echar una mano:
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
myDoc.Range.InsertAfter Text:="% de " & ActiveWorkbook.Worksheets("NutvsConsum").Cells(n, 1) & " aportado por el consumo del alimento"
Selection.Paste

Gracias