Página 1 de 1

VBA - Copiar Imagem

Enviado: 03 Abr 2016 às 20:22
por pedromexico
boa noite amigos.
procuro um codigo Vba para fazer com que a imagem que tenho uma determinada imagemBox copie para uma celula de uma panilha
Eu tenho um formulario com varias textbox(que ao abrir se autopreenchem com dados da panilha 1) e uma imagembox(que introduzi a foto actraves da propriedade imagembox campo"picture"), o formulário tem um botao de imprimir onde tenho um codigo que faz com que os valores autopreenchidos das textbox, copiem para celulas de uma panilha 2, e queria que a imagem tambem copiasse para uma determinada celula, mas nao estou a conseguir.
alguem conseguirá me ajudar?

Re: VBA - Copiar Imagem

Enviado: 07 Abr 2016 às 15:04
por EDERSONARRUDA2
Boa tarde
Utilize o script abaixo:

endereco = "ENDERECO_COMPLETO_DA_IMAGEM"
Set imagem = Sheets("NOME_DA_ABA").Shapes.AddPicture(endereco, msoFalse, msoCTrue, 0, 0, 200, 200) 'LEFT, TOP, Width (largura), Height (Altura)
'imagem.Delete 'DELETAR IMAGEM