Ir para conteúdo


Revista PROGRAMAR – Edição 46 (Setembro 2014): Download já disponível!

- - - - -

[Excel] Mostrar imagem dependendo do valor da célula

excel

  • Por favor inicie sessão para responder
3 respostas a este tópico

#1 amss1976

amss1976

    null

  • Membro
  • Pip
  • 22 mensagens

Publicado 27 de Março de 2013 - 10:43

Boas,

Gostava de saber se é possível (e se sim como pode ser feito), fazer variar a imagem que aparece numa lista de células dependendo do valor que está noutra célula no Excel. Por exemplo num top de vendas de música (capa do album com o nome do album), desporto (emblema com o nome do clube), etc.

Agradecia qualquer ajuda... :P

Obrigado.

NOTA: a correspondência entre a imagem e o texto que lhe estaria ssociado estaria localizado numa outra folha do livro

Editado por amss1976, 27 de Março de 2013 - 11:19.


#2 acao

acao

    CRLF

  • Membro
  • PipPipPipPipPip
  • 754 mensagens

Publicado 05 de Abril de 2013 - 22:26

boas
assim na lista de células não sei se é possível, mas tem alternativa utilizando um controle ActiveX (image).
cumps
acao

#3 ruirodrigues1971

ruirodrigues1971

    null

  • Membro
  • Pip
  • 24 mensagens

Publicado 07 de Maio de 2013 - 09:33

Acho que este vídeo te vai dar umas ideias ;)
http://www.youtube.com/watch?v=A9K77tKsQjQ

#4 ITWare2008

ITWare2008

    null

  • Novo Membro
  • Pip
  • 4 mensagens

Publicado 08 de Outubro de 2014 - 14:01

Boa tarde,

Só hoje (8 de Outubro) passei a fazer parte desta comunidade, daí estar a responder tão tardiamente. No entanto espero que a minha resposta possa servir de linha orientadora para quem venha a ter este problema.

Supondo que temos uma combobox criada através da validação de dados e que esta mostra os valores que foram inseridos, p. ex., na coluna A e queremos que uma caixa de comentário mostre a imagem da selecção que fizemos na combobox, necessitamos, então, que na coluna B p.ex. estejam os nomes das imagens correspondentes aos items que aparecem na combobox e escrever o seguinte procedimento num modulo VBA.

Código (Visual Basic):
Private Sub Worksheet_Change(ByVal Target As Range)
       objNovaImagem = ActiveWorkbook.Path & "\imagens\" & Range("$F$40").Value
       Target.Comment.Shape.Fill.UserPicture objNovaImagem
End sub

A célula F40 é onde a combobox guardar o valor do item seleccionado.

Espero ter ajudado.



Vândalo

Editado por thoga31, 08 de Outubro de 2014 - 15:38.
Tags code + GeSHi