title: Save Range as Image
body: <p>I am working on data wherein based on filter condition, I want to save my table as image.</p>
  
  <p>Tried working on this code but getting error 'Object Required'</p>
  
  <p>Pls help</p>
  
  <pre><code>Sub Example1()
  Dim i As Integer
  Dim intCount As Integer
  Dim objPic As Shape
  Dim objChart As Chart
  
  
  'copy the range as an image
  
  Selection.AutoFilter
  ActiveSheet.Range("$A$1:$H$282").AutoFilter Field:=2, Criteria1:= _
      "ABCD"
  
  
  Set Str = Range("A1").CurrentRegion.Select **'This I Need to transfer as Image**
  
  
  Call Sheet1.Range("A1").CurrentRegion.Select.CopyPicture(xlScreen, xlPicture) 'Getting Error
  
  
  'remove all previous shapes in sheet2
  intCount = Sheet2.Shapes.Count
  For i = 1 To intCount
  Sheet2.Shapes.Item(1).Delete
  Next i
  'create an empty chart in sheet2
  Sheet2.Shapes.AddChart
  'activate sheet2
  Sheet2.Activate
  'select the shape in sheet2
  Sheet2.Shapes.Item(1).Select
  Set objChart = ActiveChart
  'paste the range into the chart
  objChart.Paste
  'save the chart as a JPEG
  objChart.Export ("C:\Output\StuffBusinessTempExample.Jpeg")
  End Sub
  </code></pre>