How to copy Excel Range as Image using VBA / How to export Excel Range as Image
The following code saves the Excel Range (A1:B2) as an image.
It uses the Export function of the Chart object (Refer :How to Save a Chart as Image using Excel VBA)
to save as Image
Sub Export_Range_Images()
' =========================================
' Code to save selected Excel Range as Image
' =========================================
Dim oRange As Range
Dim oCht As Chart
Dim oImg As Picture
Set oRange = Range("A1:B2")
Set oCht = Charts.Add
oRange.CopyPicture xlScreen, xlPicture
oCht.Paste
oCht.Export FileName:="C:\temp\SavedRange.jpg", Filtername:="JPG"
End Sub
Posts
