Imagens inseridas via VBA excel estão ficando como vinculadas

Question

Bom dia,

Estou tentando criar um macro para facilitar a inserção de imagens em uma planilha, porem quando fecho a planilha e envio, está ficando vinculado a imagem e aparece erro. ("A imagem vinculada não pode ser exibida. Talvez o arquivo tenha sido movido, renomeado ou excluído. Verifique se o vinculo aponta para o arquivo e local corretos.")

Alguém poderia ajudar ? Segue o código.

Obrigado

Sub Botão3_Clique()
Dim Pict
Dim Imagem As Object
Dim Img As String
Dim Celula As String

Celula = "B22:E34"

Img = "Image Files JPG (*.jpg),*.jpg, Image Files GIF (*.gif),*.gif, Image files BMP (*.bmp),*.bmp"

Pict = Application.GetOpenFilename(Img)

If Pict = False Then End

Set Imagem = ActiveSheet.Pictures.Insert(Pict)

Imagem.Top = Range(Celula).Top
Imagem.Left = Range(Celula).Left
Imagem.ShapeRange.LockAspectRatio = msoFalso

Imagem.Height = Range(Celula).Height * 1 ' linhas
Imagem.Width = Range(Celula).Width * 1 'colunas
End Sub