Este fórum está sendo desativado

[LuisRosales]

Meu macro esta realizando a cópia de imagem linha a linha, sendo que descarto o caminho url da linha 1 para utilizar para linha 2 e assim sucessivamente.

A macro roda visualmente tudo ok, porém quando fecho e excel e abro novamente todas as linhas aparecem com a ultima imagem.

Manualmente antes de fechar a macro, usando colar especial bitmap, ou outro metodo é mantido as imagens conforme baixado, porém se eu fechar sem fazer este procedimento busca o vinculo da ultima imagem baixada.

Alguem sabe como quebrar este vinculo? Ou como realuizar um procedimento que mantenha estas imagens?

[AfonsoMira]

Boas.

Poderia enviar o ficheiro em anexo para ser mais fácil ajudar.

Obrigado.

[Basole]

Nao sei qual o metodo esta usando, mas experimente o addPicture.
Exemplo:

Código: Selecionar todos

Dim pic        As Shape
Dim strPicPath As String
 
      strPicPath = "C:\Users\user\Pictures\Sua_Imagem.jpg"
 
 Set pic = ActiveSheet.Shapes.AddPicture(FileName:=strPicPath, LinkToFile:=False, _
 SaveWithDocument:=True, Left:=ActiveCell.Left, Top:=ActiveCell.Top, _
 Width:=ActiveCell.Width * 2, Height:=ActiveCell.Height * 5)

    Set pic = Nothing

[LuisRosales]

Excelente muito obrigado!