Embed a image in to an Excel Spreadsheet

Hi I have the following code (In attached file)  that insets image into an excel spreadsheet, but when I sent to others, thy can't see the images. So I need to modify the code to embed the images instead of linking to them
The code( line 40+) to inset images is:
            If Dir(fNameAndPath) <> "" Then
                Set img = .Pictures.Insert(fNameAndPath)
                With img
                   .Left = ActiveSheet.Cells(lngRow, PHOTO).Left
                   .Top = ActiveSheet.Cells(lngRow, PHOTO).Top
                   .Width = ActiveSheet.Cells(lngRow, PHOTO).Width
                   .Height = ActiveSheet.Cells(lngRow, PHOTO).Height
                   .Placement = 1
                   .PrintObject = True

Furniture to Photos.xlsm