title: Copying Charts From One Sheet to Another
body: <p>I have code to generate approximately 40 graphs automatically in a preset format. Currently, I copy and paste each of the graphs by hand to a new worksheet, excluding any rows of supporting information that separate them. I've been working with the code below to copy and paste the charts automatically, however, it pastes them in the exact same location as the origin sheet. </p>
  
  <p>Is there any way I could condense the charts so they all paste together? Ideally, they would paste in the same column from the origin sheet, just without any rows separating them. </p>
  
  <pre><code>Sub overview1()
      Dim OutSht As Worksheet
      Dim Chart As ChartObject
      Dim PlaceInRange As Range
  
      Set OutSht = ActiveWorkbook.Sheets("Overview_1") '&lt;~~ Output sheet
      Set PlaceInRange = OutSht.Range("B2:J21")        '&lt;~~ Output location
  
      'Loop charts
      For Each Chart In Sheets("Summary").ChartObjects
          'Copy/paste charts
          Chart.Copy
          OutSht.Paste PlaceInRange
      Next Chart
  
  End Sub
  </code></pre>
  
  <p>Thanks!</p>
  
  <p>Edit: Thanks to Søren Holten Hansen for the code. <a href="https://stackoverflow.com/questions/45190863/copy-charts-from-one-sheet-to-another">Source</a></p>