VBA to save Pic as JPG

[ashani]

Hi experts,

I've tried several codes but nothing seem to be working. I'd like a VBA code that ask me to Select the Range, once selected than save that range as JPG on my Desktop.
Please can someone guide me on this.

Thank you

 

[Jimmypop]

Hi there

Try the below...

Sub Export()
 Dim rng As Range
 Dim oWs As Worksheet
 Dim oRng As Range
 Dim oChrtO As ChartObject
 Dim lWidth As Long, lHeight As Long
  On Error Resume Next
 Set oWs = ActiveSheet
 Set oRng = Application.InputBox(Prompt:="Select a range", Type:=8)
    On Error GoTo 0
    If Not rng Is Nothing Then
        rng.Select
    End If
 oRng.CopyPicture xlScreen, xlPicture
 lWidth = oRng.Width
 lHeight = oRng.Height
 Set oChrtO = oWs.ChartObjects.Add(Left:=0, Top:=0, Width:=lWidth, Height:=lHeight)
 oChrtO.Activate
 With oChrtO.Chart
  .Paste
  .Export Filename:="C:\Users\yOURuSERnAME\Desktop\Case.jpg", Filtername:="JPG"
 End With
 oChrtO.Delete
End Sub

 

[ashani]

Perfect - thank you!

 

[Jimmypop]

Glad we could assist and thanks for the feedback