Notifications
Clear all

Imagem na celula

9 Posts
3 Usuários
0 Reactions
2,309 Visualizações
(@julias)
Posts: 19
Eminent Member
Topic starter
 

Boa noite, outro dia vi uma solução muito legal aqui no fórum de uma macro que buscava uma imagem em uma pasta e alterava numa célula dependendo do nome. Agora não encontro mais esse tópico.
Era tipo um procv na imagem fora da planilha.
Exemplo, digito o numero 1 em A1 e na celula B1, na célula, apareceria a imagem 1.jpg que fica dentro de uma pasta tipo C:Fotos
Como fazer?

 
Postado : 08/01/2014 6:29 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite julias

Use a pesquisa do fórum:

Clique no link e depois digite: PROCV com imagens

viewtopic.php?f=7&t=3371

Feliz 2014!

 
Postado : 08/01/2014 6:40 pm
(@julias)
Posts: 19
Eminent Member
Topic starter
 

Boa noite Patropi, eu tinha procurado na pesquisa e não encontrei.
Você conhece algo que funcione com imagens fora da planilha?

 
Postado : 08/01/2014 6:45 pm
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

julias,

Boa Noite!

Bem... na própria célula eu não consegui. Entretanto, segue um exemplo bem próximo do que você quer que talvez lhe atenda.

 
Postado : 08/01/2014 8:17 pm
(@julias)
Posts: 19
Eminent Member
Topic starter
 

Eu testei aqui Wagner mas não apareceu a imagem.
Eu troquei o caminho para D:11.png e D:12.png mas não apareceu nada
Será que consegue colocar o nome que foi digitado pra localizar ser o mesmo da imagem
Exemplo, coloco 1 na celula A1 e ele procura 1.jpg

 
Postado : 10/01/2014 10:44 am
(@julias)
Posts: 19
Eminent Member
Topic starter
 

Se for facilitar, pode ser em um userform.
Não sei se tem algumas opções a mais mas serve tambem.

 
Postado : 10/01/2014 2:34 pm
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

julias,

Boa Noite!

Estou lhe enviando um arquivo compactado abaixo que contém 3 arquivos (Imagem na célula.xlsm, 1.jpg e Branco.bmp). Salve os 3 numa mesma pasta. Em seguida, altere a linha Image1.Picture = LoadPicture("C:UsersWagnerPicturessharpei.bmp") e a linha Image1.Picture = LoadPicture("C:UsersWagnerPicturesBranco.bmp") de maneira a que possa refletir a pasta onde você colocou os arquivos .jpg e . bmp.

O arquivo 1.jpg é a imagem de um carro que vai aparecer assim que você digitar o número 1 na célula A1. Quando você apagar o número 1, será carregado o arquivo Branco.bmp que faz "desaparecer a imagem do carro anteriormente carregada.

 
Postado : 10/01/2014 3:25 pm
(@julias)
Posts: 19
Eminent Member
Topic starter
 

Ficou muito bom Wagner, era exatamente isso.

Só alterei a ordem do if e do else e para varias imagens coloquei um " & Cells(1, 1).Value & ".jpg"

Muito obrigada.

 
Postado : 14/01/2014 6:45 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.

 
Postado : 14/01/2014 8:28 am