VBA Advice to store JPG in cell

[VBA learner ITG]

Hi Peers,

I need your advice.

I have the following code which works by adding the a copy of the image to a cell in a column which the JPG is visible in the workbook.

However, when I send the workbook to another person the images don't appear to them unless I send them the JPG files as well.

I have tried googling what I can do to store the JPG in the excel file so I don't have to send the JPG with the excel workbook.

Any advice is appreciated.

Sub URLPictureInsert()
Dim Pshp As Shape
Dim xRg As Range
Dim xCol As Long
On Error Resume Next
Application.ScreenUpdating = False
Set Rng = ActiveSheet.Range("F5:F5000")
For Each cell In Rng
filenam = cell
ActiveSheet.Pictures.Insert(filenam).Select
Set Pshp = Selection.ShapeRange.Item(1)
If Pshp Is Nothing Then GoTo lab
xCol = cell.Column + 1
Set xRg = Cells(cell.Row, xCol)
With Pshp
.LockAspectRatio = msoFalse
If .Width > xRg.Width Then .Width = xRg.Width * 2 / 3
If .Height > xRg.Height Then .Height = xRg.Height * 2 / 3
.Top = xRg.Top + (xRg.Height - .Height) / 2
.Left = xRg.Left + (xRg.Width - .Width) / 2
End With
lab:
Set Pshp = Nothing
Range("A2").Select
Next
Application.ScreenUpdating = True
End Sub

 

[KOKOSEK]

Change Insert into Add.
Change in this part:

For Each cell In Rng
filenam = cell
Set Pshp = ActiveSheet.Shapes.AddPicture(filenam, False, True, 20, 20, -1, -1)     ' this line is the most important
If Pshp Is Nothing Then GoTo lab
xCol = cell.Column + 1
Set xRg = Cells(cell.Row, xCol)
With Pshp

 

[VBA learner ITG]

@KOKOSEK thank you for taking the time to look at my post and your feedback worked.

Thank you for your help today.