title: VBA copying Excel chart to Word as picture changes the chart size
body: <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>