title: Bug Fixing: Copied images in Excel 2016 VBA appear as blank images
body: <p>I am trying to export into my local file a defined Excel range as image (PNG) (it’s named: “ Print_Area” on tab “Summary” Range: P1:AI92 ) . The program runs well, however when I open the file all the imagines are blank 
  Here is the coding that I am using:</p>
  
  <pre><code>Sub _Daily_Mail()
  
  Dim Rango7 As Range
  Dim Archivo As String
  Dim Imagen As Chart
  Dim Result As Boolean
  
  Set Rango7 = Sheets("Summary").Range("P2:AI92")   ' Summary
  Sheets("Summary").Select
  
   With Rango7
        .CopyPicture Appearance:=xlScreen, Format:=xlPicture
         Set Imagen = Rango7.Parent.ChartObjects.Add(33, 39, .Width, .Height).Chart
      End With
  
  Imagen.Paste
  Imagen.ChartArea.Border.LineStyle = 0
  Imagen.ChartArea.Width = Imagen.ChartArea.Width * 3
  Imagen.ChartArea.Height = Imagen.ChartArea.Height * 3
  
  Imagen.export "C:\Users\mely\Documents\Imagenes_POS\Informe1.png", filtername:="PNG"
  Imagen.Parent.Delete
  Set Imagen = Nothing
  </code></pre>
  
  <p><a href="http://i.stack.imgur.com/39lDn.jpg" rel="nofollow">When I open the file </a></p>