VBA vložit obrázek bez propojení

Dobrý den, chtěl bych Vás poprosit o přepsání VBA kódu tak, aby vložený obrázek zůstal součásti sešitu i v případě otevření na jiném PC. Vím, že to musí být vloženo jako Shapes a ne jako Picture, ale VBA nerozumím a nedaří se mi kód upravit do funkční podoby. Předem velice děkuji.

Sub GetFOTO()
Dim fNameAndPath As Variant
Dim img As Picture
fNameAndPath = Application.GetOpenFilename(Title:="Select Picture To Be Imported")
If fNameAndPath = False Then Exit Sub
Set img = ActiveSheet.Pictures.Insert(fNameAndPath)
With img
'Resize Picture to fit in the range....
.Left = ActiveSheet.Range("A8").Left
.Top = ActiveSheet.Range("A8").Top
.Width = ActiveSheet.Range("A8:N8").Width
.Height = ActiveSheet.Range("A8:A31").Height
.Placement = 1
.PrintObject = True
End With
End Sub