Insertar Imagen en Excel desde explorador de Windows

Tengo un formulario y utilizo un CommandButton para insertar una imagen a una hoja de excel. Ya estoy utilizando un código si funciona, me inserta la imagen el la hoja pero cuando envió el archivo por correo la imagen no aparece, sale el mensaje de "No se puede mostrar la imagen vinculada.Puede que se haya cambiado de nombre o eliminado el archivo"

Me podrían ayudar a corregir mi código para evitar que se vincule la imagen y cuando mande el archivo pueda estar visible. De antemano agradezco su apoyo.

Estoy utilizando el siguiente código

Private Sub CommandButton5_Click()
Application.ScreenUpdating = False
fichero = Application.GetOpenFilename
If fichero = False Then Exit Sub
tope = Range("A5").Top
izq = Range("A5").Left
alto = Range("A5").Height
ancho = Range("A5").Width
Workbooks("Libro1").Activate
    ThisWorkbook.Sheets("Hoja3").Pictures.Insert(fichero).Select
w = Selection.Width
h = Selection.Height
MsgBox "La imagen se guardo correctamente"
Application.ScreenUpdating = True
End Sub