Indsat billed i Excel og fjern link

Hej

Jeg har lavet en macro, der indsætter billeder i et ark, fra en sti. Men jeg har brug for den ikke indsætter det som et link men som et billed, for når jeg sender arket videre forsvinder billederne.

Min macro ser sådan her ud:


Sub Billed()

'Sub Indsæt_billede()
'

  Dim x As Integer
  For x = 1 To 10
     
    Filnavn = ActiveCell.Value
     
    ActiveCell.Offset(-7, 2).Range("A1").Select
    ActiveSheet.Pictures.Insert("I:\Axbilleder\" & Filnavn & ".jpg").Select
    Selection.ShapeRange.LockAspectRatio = msoTrue
    Selection.ShapeRange.Height = 220
    Billednavn = Selection.Name   
 
    ActiveCell.Offset(18, -2).Range("A1").Select
    Next

End Sub