Alguém sabe como salvo as imagens dentro do arquivo com o seguinte código?

Eu uso ele para puxar as imagens e elas aparecem , no entanto quando vou abrir o arquivo em outro pc as imagens não estão mais no arquivo por que apenas estão vinculadas, não estão salvas no excel.

alguma dica?

Sub Imagem1()

Range("L11").Select 'This is where picture will be inserted
Dim picname As String
picname = Range("M11") 'This is the picture name
ActiveSheet.Pictures.Insert("C:Imagens" & picname & ".jpg").Select 'Path to where pictures are stored
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
' This resizes the picture
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
With Selection
.Left = Range("L11").Left
.Top = Range("L11").Top
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = 110.9
.ShapeRange.Width = 110.9
.ShapeRange.Rotation = 0#
End With

Range("A10").Select
Application.ScreenUpdating = True

Exit Sub

ErrNoPhoto:
MsgBox "Unable to Find Photo" 'Shows message box if picture not found
Exit Sub
Range("B20").Select

End Sub