title: Saving range as picture with Excel 2016
body: <p>The purpose of this code is to save a range of cells as a picture on the desktop.</p>
  
  <p>The file is created but does not contain any of the cell data, it is a blank image with the relative size of the range.</p>
  
  <p>The problem appears in Office 2016. Works in 2013.</p>
  
  <pre><code>Sub SendSnapshot2()
  
      Dim strRng As Range
      Dim strPath As String
      Dim strFile As String
      Dim Cht As Chart
  
      Set strRng = ActiveWorkbook.Sheets("Snapshot").Range("A2:Q31")
      strPath = CreateObject("WScript.Shell").specialfolders("Desktop")
      strFile = "HeartBeat Snapshot - " &amp; Format(Now(), "yyyy.mm.dd.Hh.Nn") &amp; ".png"
  
      strRng.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
      'strRng.CopyPicture Appearance:=xlScreen, Format:=xlPicture
      'strRng.CopyPicture xlScreen, xlBitmap
  
      Application.DisplayAlerts = False
      Set Cht = Charts.Add
      With Cht
          .Paste
          '.Export Filename:=strFile, Filtername:="JPG"
          .Export Filename:="C:\downloads\SavedRange.jpg", Filtername:="JPG"
          '.Delete
      End With
  
  End Sub
  </code></pre>