Dúvida Macro Excel para inserir imagens sem vinculos

[JotaJunior]

Boa Tarde, preciso de uma ajuda muito importante.

 

Caso tenha alguma pessoa disposta a colaborar com um iniciante em macros.... por favor me ajude!
 

Tenho uma macro que faz o upload de fotos assim que clicar em um determinado botão e com uma determinado tamanho, no entanto tem um problema, ela está ficando apenas com os vínculos e não carregando as fotos dentro do arquivo. Isto acontece quando envio para outro computador ou a foto é colocada em outra pasta depois de ter feito o upload no excel.

 
Segue a macro para análise:
 

Sub Insere_image()Application.ScreenUpdating = TrueDim PictDim Imagem As ObjectDim ImgFileFormat As StringDim Celula As StringCelula = "m6"ImgFileFormat = "Image Files JPG (*.jpg),*.jpg, Image Files GIF (*.gif),*.gif, Image Files BMP (*.bmp),*.bmp"Pict = Application.GetOpenFilename(ImgFileFormat)If Pict = True Then EndSet Imagem = ActiveSheet.Pictures.Insert(Pict)Imagem.Top = Range(Celula).TopImagem.Left = Range(Celula).LeftImagem.ShapeRange.LockAspectRatio = msoFalseImagem.Height = Range(Celula).Height * 9 '9 = Quantidade de linhas...Imagem.Width = Range(Celula).Width * 12 '12 = Quantidade de colunas...Application.ScreenUpdating = FalseEnd Sub

Se fiz algo de errado no forum , me avisem por favor, é meu primeiro post.

 

Obrigado.

 

 

[JotaJunior]

ninguém sabe fazer isso ...