INTERAÇÃO COM WINDOWS

39. Salvar uma seleção como imagem

Esta macro, salva automaticamente uma seleção de células como uma
imagem, o arquivo é salvo na mesma pasta com o mesmo nome da planilha
ativa.

Obs: Substituir os valores de exemplo em negrito pelos valores desejados.

Sub SelectedRangeToImage()
Dim iFilename As String
Dim TempObjChart As Chart
Dim Shp As Shape
Dim Wsht As Worksheet
Dim fileSaveName As Variant, pic As Variant
Set Wsht = ActiveSheet
Selection.Copy
Wsht.Pictures.Paste.Select
Set Shp = Wsht.Shapes(Wsht.Shapes.Count)
Set TempObjChart = Charts.Add
TempObjChart.ChartArea.Clear
TempObjChart.Name = "PicChart" & (Rnd() * 10000)
Set TempObjChart =
TempObjChart.Location(Where:=xlLocationAsObject, Name:=Wsht.Name)
TempObjChart.ChartArea.Width = Shp.Width
TempObjChart.ChartArea.Height = Shp.Height
TempObjChart.Parent.Border.LineStyle = 0
Shp.Copy
TempObjChart.ChartArea.Select
TempObjChart.Paste
iFilename = Application.ActiveWorkbook.Path & "\" & ActiveSheet.Name
& ".jpg"
TempObjChart.Export Filename:=iFilename, FilterName:="jpg"