title: VBA Chart is not pasting as PNG
body: <p>So I made a macro to copy and paste (line graph) from one sheet to another as a PNG file. But when i run the code the graph does not appear. Please advise</p>
  
  <p>The variable "p" is just a counter, for pasting other graphs when the data is refreshed after a loop. </p>
  
  <pre><code>Worksheets("Data").Activate
      ActiveSheet.ChartObjects("Graph1").Activate
      ActiveChart.ChartArea.Copy
  
      Sheets("List").Select
      Range("A" &amp; p).Select
  
     ActiveSheet.PasteSpecial Format:="Picture (PNG)", Link:=False, _
          DisplayAsIcon:=False
  p=p+46
  </code></pre>
  
  <p>I tried this and it still didnt work</p>
  
  <pre><code> Worksheets("Data").Activate
      ActiveSheet.ChartObjects("Graph1").Activate
      ActiveChart.ChartArea.CopyPicture Format:=xlPicture
  
      Sheets("List").Select
      Range("A" &amp; p).Select
  
     ActiveSheet.PasteSpecial
  
  p = p + 46
  </code></pre>
  
  <p>@Nanashi Just tried this and it didnt work unfortunately</p>
  
  <pre><code> Worksheets("Data").Activate
          Dim WS As Worksheet: Set WS = ActiveSheet
      Dim Cht As Chart
      Set Cht = WS.ChartObjects("StockGraph").Chart
      Cht.ChartArea.Copy
  
  
  
      Sheets("List").Select
      Range("A" &amp; p).Select
  
   WS.Pictures.Paste
  </code></pre>
  
  <p>Here is the code as requested: (Thank you for your help!)</p>
  
  <pre><code>Sub Execute()
  Dim mark As String
  
  Worksheets("Tab").Activate
  Range("I3").Select
  lr = Selection.End(xlDown).row
  
  pst = 5
  pstc = 12
  pstg = 6
  oro = 1
  opo = 3
  l = 25
  m = 32
  n = 39
  o = 5
  p = 11
  pstc = 21
  
  For s = 5 To lr
  
  On Error Resume Next
  
  Worksheets("Tab").Activate
  
  mark= Cells(s, 9)
  Cells(6, 2) = mark
  
  Application.Calculation = xlCalculationAutomatic
  
  Call Macro2
  Call Macro1
  
  Application.Calculation = xlCalculationAutomatic
  
  '==================================================================='
  
  Range("I1:L5").Copy
  Worksheets("List").Activate
  Range("H" &amp; o).PasteSpecial xlPasteValues
  
  '''graph'''''''''
          Worksheets("Data").Activate
      ActiveSheet.ChartObjects("Graph1").Activate
      ActiveChart.ChartArea.Copy
  
      Sheets("List").Select
      Range("A" &amp; p).Select
  
     ActiveSheet.PasteSpecial Format:="Picture (PNG)", Link:=False, _
          DisplayAsIcon:=False
  
  p = p + 46
  
      Worksheets("Data").Activate
      ActiveSheet.ChartObjects("Graph1").Delete
  </code></pre>