title: Save a range as a picture file/pdf on one page
body: <p>I am trying to save a range as a picture file. The code below (scraped from another post) works, but I don't want to create a chart page which I then need to delete. Any suggestions?</p>
  
  <pre><code>Sub savedeal()
  
  Dim sSheetName As String
  Dim oRangeToCopy As Range
  Dim oCht As Chart
  Dim myFileName As String, myPath As String
  
  myFileName = Format(Now(), "dd-mmm-yy") &amp; "-" &amp; "DEAL.PNG"
  myPath = "D:\Hughs Files\Google Drive\Work Folder\Polaris\Blog\"
  
  
  Worksheets("BOOK").Range("B15:M45").CopyPicture xlScreen, xlBitmap
  
  Set oCht = Charts.Add
  
  With oCht
      .Export Filename:=myPath &amp; "\" &amp; myFileName, Filtername:="PNG"
  End With
  End Sub
  </code></pre>