Range to Image - Image Resizing

[rmilzy]

So I am currently working with a macro that takes multiple ranges between different sheets and uploads them to a specific shared location:

Dim objChrt As Chart
  Dim rngImage As Range
  Dim strFile As String

  On Error GoTo ErrExit

  With Sheets("Sheet1")

    Set rngImage = .Range("C1:R99")

    rngImage.CopyPicture Appearance:=xlScreen, Format:=xlBitmap

    strFile = "Location1.PNG"

    Set objChrt = .ChartObjects.Add(rngImage.Left, rngImage.Top, rngImage.Width, rngImage.Height).Chart

    With objChrt
        .Parent.Activate
        .ChartArea.Format.Line.Visible = msoFalse
        .Paste
        .Export strFile
        .Parent.Delete
        End With
    
With Sheets("Sheet2")  

    Set rngImage = .Range("B8:L29")

    rngImage.CopyPicture Appearance:=xlScreen, Format:=xlBitmap

    strFile = "Location2.PNG" 

    Set objChrt = .ChartObjects.Add(rngImage.Left, rngImage.Top, rngImage.Width, rngImage.Height).Chart

    With objChrt
        .Parent.Activate
        .ChartArea.Format.Line.Visible = msoFalse
        .Paste
        .Export strFile
        .Parent.Delete
    End With
  End With
  End With

ErrExit:
  Set objChrt = Nothing
  Set rngImage = Nothing
 
End Sub

In order to efficiently utilize these images, I need the width of both images to not exceed 1920 pixels (In order to display correctly on a 1080p TV).

Is it possible to resize these images before they are uploaded?

 

[Dan_W]

It is certainly possible to do that - I would recommend perhaps looking at some of the projects that Jaafar Tribak has uploaded on this this Forum, though, because it might save you some time in the long run. For example, he has a project here that will take exact image snapshots without the hassle of copying and pasting things into chart objects in order to export them. I believe there is also a project on the Forum that he posted a while back that allows you to resize images to exact dimensions, too.

Help with resizing chart to image

I don't know why i cant wrap my head around this. So the objective is to have a user select a range loop through that selection and take every row and export it as an image Sub ExportRanges() Dim x As Long, i As Long Dim ary1 As Variant Dim cht As Object Dim mypictures As String Set rNg =...

www.mrexcel.com

 

[Dan_W]

And I just found the resizing/compression routine. I hope this is helpful.

VBA Image Compressing Code Amendment Needed

This code was written for me by @Jaafar Tribak . I want to update it at the line below but I am not able to do it as I want. sFolderPath = ThisWorkbook.Path & .PathSeparator & "PASSPORT PICTURES" & .PathSeparator Instead of compressing from the parent folder, "PASSPORT PICTURES", I have...

www.mrexcel.com