Notifications
Clear all

Imagem na celula

9 Posts
3 Usuários
0 Reactions
2,321 Visualizações
(@julias)
Posts: 19
Active 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
Fernando Fernandes
(@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!

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 08/01/2014 6:40 pm
(@julias)
Posts: 19
Active 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
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious 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.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 08/01/2014 8:17 pm
(@julias)
Posts: 19
Active 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
Active 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
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious 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.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 10/01/2014 3:25 pm
(@julias)
Posts: 19
Active 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
Fernando Fernandes
(@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.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 14/01/2014 8:28 am