Página 1 de 1

Quebrar viculo imagem

Enviado: 12 Abr 2020 às 21:36
por 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?

Quebrar viculo imagem

Enviado: 13 Abr 2020 às 09:10
por AfonsoMira
Boas.

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

Obrigado.

Re: Quebrar viculo imagem

Enviado: 13 Abr 2020 às 09:30
por 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

Re: Quebrar viculo imagem

Enviado: 14 Abr 2020 às 12:22
por LuisRosales
Excelente muito obrigado!