Select picture on excel sheet then save to desktop ?

[HerryMarkowitz]

Hi folks,
Select one of your picture which exists in your excel file.
Then run following macro to save it to the desktop.

Sub Macro1()
Selection.Save "C:\Users\PC\Desktop\Image1.jpg"
End Sub

What is problem of above code ?
or
Do you have any other code for this?

[patel45]

Sub SaveySelectedImage()
Dim Cht As ChartObject
strPath = "C:\users\PC\desktop\"
With Selection
  .CopyPicture xlScreen, xlPicture
   Set Cht = ActiveSheet.ChartObjects.Add(0, 0, .Width, .Height)
End With
Cht.Chart.Paste
Cht.Chart.Export strPath & "myfile.jpg"
Cht.Delete
Set Cht = Nothing
Set rng = Nothing
End Sub

[HerryMarkowitz]

Thanks for the code.
Interesting thing is exporting is possible if it is chart not a picture...