Macro For Embedding Images Versus Inserting

I am trying to make a macro that will embed images into a worksheet for my company. I researched online and put one together from stuff I've seen posted but when I email the file, the receiver can not see the image. I believe it is because "inserting" a picture only inserts a link to the picture but not the actual picture. Is there a way to embed the picture using the same macro without the sender having to send the picture and the worksheet?

Sub photo1()
'
' photo1 Macro
'
'
Application.ScreenUpdating = False
'varible Picture1 is inserted down below - ***change both***
Picture1 = Application.GetOpenFilename("Picture,*.JPG,Picture,*.JPEG,Picture,*.GIF,Picture,*.BMP")
'edit "("Picture,*.*")" section to add or chanve visible file types

[Code] .........