Hi Rohan
Thanks for your response and apologies for the delay in response. Use the
below procedure to save as jpg. Try and feedback
Sub Macro()
SaveSelectedPictureAs "c:\1235.jpg", "JPG"
End Sub
Sub SaveSelectedPictureAs(strFile As String, strFormat As String)
Dim wsTemp As Worksheet, chtObj As Chart, pObj As Picture
Dim dblWidth As Double, dblHeight As Double
Set pObj = Selection: dblWidth = pObj.Width: dblHeight = pObj.Height
pObj.Copy
Application.ScreenUpdating = False
Set wsTemp = ActiveSheet: Set chtObj = Charts.Add
chtObj.Location Where:=xlLocationAsObject, Name:=wsTemp.Name
wsTemp.Range("A1").Select
With wsTemp.ChartObjects(1)
.Top = 0
.Left = 0
.Width = dblWidth
.Height = dblHeight
.Activate
.Chart.Paste
.Interior.ColorIndex = 1
.Chart.Export FileName:=strFile, FilterName:=strFormat
.Delete
End With
Application.ScreenUpdating = True
End Sub
If this post helps click Yes