Exibir imagem ao selecionar célula

Leia também...

Arredondando números

Arredondando números Por algumas vezes precisamos arredondar os números para que possam melhores representar o dado que queremos, e existem duas maneiras de fazer isso,

Ler »

Exibir imagem ao selecionar célula

Neste post você vai aprender a como exibir imagens sempre que uma célula é selecionada. As imagens aparecem direto na planilha e de acordo com o conteúdo da célula.

A imagem pode ser configurada para aparecer em qualquer posição na tela, além de tamanho e demais configurações de efeitos de imagem. Assim que as células alvo são selecionadas um código VBA é executado, lendo o conteúdo da célula e com base nele exibe a imagem correspondente.

As imagens não ficam salvas dentro do arquivo Excel, o que mantém a leveza do mesmo. As imagens ficam em uma pasta separada no computador e são carregadas pra dentro do Excel somente quando necessário.

O vídeos a baixo explica todo o funcionamento do código. Além disso você pode baixar o arquivo utilizado no vídeo, neste caso um arquivo zipado contendo não só a planilha mas uma pasta com algumas imagens, basta descompactar e sair testando direto que as imagens já serão exibidas.


Código VBA para exibir imagem na célula

Assista ao vídeo para saber como implementar o código e compreender todas as etapas do mesmo.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 On Error Resume Next
 
 If Target.Column = 3 And Target.Row > 6 And Target.Value <> "" Then
 Me.Shapes.Range(Array("Foto")).Delete
 
 Dim FullImagePath As String
 
 FullImagePath = ThisWorkbook.Path & "\Imagens\" & Target.Value & ".jpg"
 If Dir(FullImagePath) = "" Then
 FullImagePath = ThisWorkbook.Path & "\Imagens\" & Target.Value & ".jpeg"
 If Dir(FullImagePath) = "" Then
 FullImagePath = ThisWorkbook.Path & "\Imagens\" & Target.Value & ".png"
 If Dir(FullImagePath) = "" Then Exit Sub
 End If
 End If
 
 Me.Pictures.Insert(FullImagePath).Select
 With Selection
 .Name = "Foto"
 .Left = 275
 .Height = 100
 .ShapeRange.Shadow.Type = msoShadow21 'Adciona sombra
 End With
 
 Target.Activate
 Else
 Me.Shapes.Range(Array("Foto")).Delete
 End If
 
End Sub

Arquivo demo para download

O arquivo está zipado, contendo não só a planilha mas uma pasta com algumas imagens, basta descompactar e sair testando direto que as imagens já serão exibidas.


Acompanhe o Função Excel
facebook-logo youtube-logo googleplus-logo twitter-logo

E aí, o que achou?

Compartilhe

Destaques da Loja

Doação

Quer ajudar o Função Excel a se manter no ar, ou sente que merecemos um carinho por ter te ajudado a resolver algum problema com Excel? Que tal fazer uma doação?

Para doar mais que R$5,00 altere a quantidade de “compra” para que o número seja multiplicado por R$5,00.

Saber mais »

Histórico de Cotações

Baixe cotações históricas de ações, índices, moedas, criptomoedas, commodities e fundos em mais de 50 bolsas de valores no mundo, direto no Excel. Selecione os parâmetros desejados e deixe o arquivo fazer o resto para você, de forma rápida, simples e organizada.

Saber mais »

Gerador de catálogos

Com o Gerador de catálogos do Função Excel você poderá criar catálogos personalizados de maneira muito fácil e rápida.

Os catálogos são gerados em formato PDF de forma automática, basta setar as configurações desejada e o arquivo fará tudo por você.

Gere seus catálogos e alavanque suas vendas.

Saber mais »

Planilha de Controle Uber, Cabify & 99 Pop

Com a Planilha de Controle Uber, Cabify & 99 Pop você terá total controle de seus ganhos e gastos como motorista, sabendo de onde vem e para onde vai seu dinheiro.
Com esta planilha você terá em detalhes todo o fluxo de dinheiro que envolve seu trabalho como motorista, e poderá controlar melhor sua renda.

Saber mais »