title: Excel VBA copy range as image with scaling
body: <p>I have the following code that convert a range to image and save it to file. My problem is, I want to scale up the copied range to higher resolution/dpi to get bigger picture</p>
  
  <pre><code>Sub SaveRangeToImage(rng As Range, path As String)
      ''' Set Range you want to export to file
      Dim rgExp As Range: Set rgExp = rng
      ''' Copy range as picture onto Clipboard
      rgExp.CopyPicture Appearance:=xlScreen, Format:=xlPicture
      ''' Create an empty chart with exact size of range copied
      With ActiveSheet.ChartObjects.Add(Left:=rgExp.Left, Top:=rgExp.Top, _
      Width:=rgExp.Width, Height:=rgExp.Height)
      .name = "img_img"
      .Activate
      End With
      ''' Paste into chart area, export to file, delete chart.
      ActiveChart.Paste
      ActiveSheet.ChartObjects("img_img").Chart.Export path
      ActiveSheet.ChartObjects("img_img").Delete
  End Sub
  </code></pre>
  
  <p>I need to scale image up in order to get best text quality, if I resize it afterward, it gives me poor text visibility.</p>
  
  <p>does anyone have an idea about this problem?</p>