Grafiek versturen naar Word document

[AaltK]

Dag beste excel experts ;-)

Zou jullie om hulp willen vragen om het volgende:

Ik heb een excel bestand en hierin staan gegevens en aan de hand van deze gegevens is een grafiek gemaakt.
Nu wil ik via een button/knop door middel van: VBA de grafiek versturen naar een WORD-document, nu heb ik het volgende:

Sub chart_to_Word()

Dim wd As Object
Dim doc As Object
Dim strdocname As String

On Error Resume Next
Set wd = GetObject(, "Word.Application")
If Err.Number = 429 Then
Err.Clear
Set wd = CreateObject("Word.Application")
End If

ActiveSheet.ChartObjects("Grafiek 1").Activate
ActiveChart.ChartArea.Copy

wd.Visible = True
strdocname = "path\file"
If Dir(strdocname) = "" Then
MsgBox "Het bestand " & strdocname & vbCrLf & " is niet gevonden! " & vbCrLf & "path.", vbExclamation, "Het document bestaat niet!"
Exit Sub
End If

wd.Activate
Set doc = wd.Documents.Open(strdocname)
If doc Is Nothing Then Set doc = Documents.Open(strdocname)
doc.Activate
doc.Range.Paste

'ActiveWorkbook.Activate
'ActiveSheet.ChartObjects("Grafiek 2").Activate
'ActiveChart.ChartArea.Copy

'wd.Activate
'doc.Activate
'doc.Range.Paste

'HIER ZOU DAN DE CODE MOETEN KOMEN OM DE GRAFIEKEN OP EEN BEPAALDE PLAATS TE ZETTEN.

Set doc = Nothing
Set wd = Nothing

Application.CutCopyMode = False

End Sub

Alleen deze WORD-document wil ik graag positioneren...hoe doe ik dit?