VBA copying Excel chart to Word as picture changes the chart size
<p>I want to create a macro that copies charts from Excel and pastes them into Word as pictures (preferrably Enhanced Metafiles). </p>

<p>I set up a Word template document with a table which contains bookmarks in specific cells where the pictures should be inserted. </p>

<p>With my current code, however, the inserted image is way too big and screws up the whole table. 
I tried different picture options (enhanced metafile, png, etc.), but they all have the same result.</p>

<p>When I try to copy the chart by hand using <code>PasteSpecial</code> in the table, it keeps the orginal size which is just how I want it. </p>

<p>What do I have to change in my code to get that?</p>

<pre><code>Sub CopyCharts2Word()

Dim wd As Object
Dim ObjDoc As Object
Dim FilePath As String
Dim FileName As String
FilePath = "C:\Users\Name\Desktop"
FileName = "Template.docx"


'check if template document is open in Word, otherwise open it
On Error Resume Next
Set wd = GetObject (, "Word.Application")    
If wd Is Nothing Then
    Set wd = CreateObject("Word.Application")
    Set ObjDoc = wd.Documents.Open(FilePath &amp; "\" &amp; FileName)
Else
    On Error GoTo notOpen
    Set ObjDoc = wd.Documents(FileName)
    GoTo OpenAlready
notOpen:
    Set ObjDoc = wd.Documents.Open(FilePath &amp; "\" &amp; FileName)
End If
OpenAlready:
On Error GoTo 0

'find Bookmark in template doc 
wd.Visible = True                                              
ObjDoc.Bookmarks("Boomark1").Select  

 'copy chart from Excel        
 Sheets("Sheet1").ChartObjects("ChartA").chart.ChartArea.Copy        

 'insert chart to Bookmark in template doc
 wd.Selection.PasteSpecial Link:=False, _
 DataType:=wdPasteMetafilePicture, _
 Placement:=wdInLine, _
 DisplayAsIcon:=False

 End Sub
</code></pre>