Save Range to File as Image (tif)

[Jeffrey Mahoney]

I can't believe this is not easier for me. I looked at many posts and tried to duplicate their results. When I manually copy a range as a picture, paste it, and Save as Picture, it seems so easy. I even used some code that first pasted the picture into a chart, but I get an empty file after exporting.

Please help with the code to export a shape into a TIF file.

Sub SaveRangeToFile()

  Dim MatNum As String
  Dim FileName As String
  Dim Shp As Shape
  Dim Sht As Worksheet

  Set Sht = ActiveSheet
  
  Range("SaveRange").Select
  Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
  MatNum = Range("MaterialNum").Value
  FileName = MatNum & ".tif"
  Range("P4").Select
  
  Sht.Pictures.Paste.Select
  Set Shp = Sht.Shapes(Sht.Shapes.Count)
  
  Shp.Export FileName:=FileName, Filtername:="TIF"     '<<<<< There is no option to export a shape
  
  
End Sub

 

[DanteAmor]

I even used some code that first pasted the picture into a chart

Try that code again, but save the file as .jpg
Then rename the file x.jpg as x.tif
Check if that way the x.tif file works for you.

 

[Jeffrey Mahoney]

Try that code again, but save the file as .jpg
Then rename the file x.jpg as x.tif
Check if that way the x.tif file works for you.

This code works to save a chart as a jpg or png format. When I try to export it as TIF format, the image is blank. TIF is an uncompressed format and I'd like to use that.

Question is, why can't I export an image pasted in Excel without adding it to a Chart? I can do it manually, and I can export it as a TIF file.

Sub SaveRangeToFile()

  Dim MatNum As String
  Dim FileName As String
  Dim Shp As Shape
  Dim Sht As Worksheet
  Dim Cht As Chart

  Set Sht = ActiveSheet
  
  Range("SaveRange").Select
  Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
  MatNum = Range("MaterialNum").Value
  FileName = MatNum & ".png"
  Range("P4").Select
  
  Sht.Pictures.Paste.Select
  Set Shp = Sht.Shapes(Sht.Shapes.Count)
  
  
  Set Cht = Charts.Add
  Cht.ChartArea.Clear
  'Cht.Name = "PicChart" & (Rnd() * 10000)
  Set Cht = Cht.Location(Where:=xlLocationAsObject, Name:=Sht.Name)
  Cht.ChartArea.Width = Shp.Width
  Cht.ChartArea.Height = Shp.Height
  Cht.Parent.Border.LineStyle = 0

  'Paste range as image to chart
  Shp.Copy
  Cht.ChartArea.Select
  Cht.Paste

  Cht.Export FileName:=FileName, Filtername:="png"
  Cht.Select
  Cht.Delete
  Shp.Delete
  
  
  
End Sub

 

[DanteAmor]

Maybe you can download a software that converts jpg to tif.
And maybe you can use it from VBA passing it the parameters of the source file destination file.

 

[Jeffrey Mahoney]

Thanks for the offer. The quality of the images saved to a JPG file is already ruined. Converting it to a TIF file doesn't bring back the original data.

 

[DanteAmor]

jpg was the example, I mean to use an extension to which excel does have access and then with a software convert it to tif

 

[rlv01]

The expedient way is to export the range to a graphic format excel supports. I like .png. Then open with Paint and save to .tif (or .tiff)