copy userform image

[orsm6]

Hi all - i came across the following code - it helps me copy an image (picture) from my user form to a spreadsheet. I have now found that I am unable to select the picture on the sheet and cannot even delete it. My end goal is to use the user form and then transfer all the values into a spreadsheet that is set up as a printable template (including with the images)

is there a better way to do it other than with this code?
I would really like to be able to put any picture type in there... at least .png as well as .jpg. but if that isn't possible then no stress.

Sub imagetopcr()
Dim shapeImage As OLEObject
    With Worksheets("PCR Form")
    Set shapeImage = .OLEObjects.Add(ClassType:="Forms.Image.1", _
    Left:=.Cells(14, "h").Top, _
    Top:=.Cells(14, "h").Top, _
    Width:=Me.Image1.Width, _
    Height:=Me.Image1.Height)
End With

With shapeImage
    .Object.PictureSizeMode = 3
    .Object.Picture = Me.Image1.Picture
End With

End Sub

EDIT: i now find that I have to be in "Design Mode" to allow me to delete the image from the sheet.

 

[davesexcel]

If the Image in the USerForm is from an image file, could you not place the same image file into the worksheet?

 

[orsm6]

If the Image in the USerForm is from an image file, could you not place the same image file into the worksheet?

What you are saying makes sense, and i thought that it would. the code i use sends the userform image to H16, so I would have thought it'd just replace that which was there, but it doesn't. It actually put the image next to the one that was still there. I have managed to find a code on here that loops through and removes linked or embedded OLE objects....

The way the image copies over isn't a huge concern, it was more that i though that i couldn't delete it. So now that i have this macro i can run an open workbook event to clear out the template before the userform opens up.