Cursos, tutoriais e planilhas prontas

Exibir imagem ao selecionar célula

Share on facebook
Share on twitter
Share on linkedin
Share on whatsapp
Share on telegram

Leia também...

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.

Coloque o video em tela cheia para assistir normalmente


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

Leia também...

O básico do Excel

O básico do Excel Se você não manja nada da maior ferramenta de planilhas eletrônicas do mundo, aqui está um apanhado de informações com o

Ler »

2 thoughts on “Exibir imagem ao selecionar célula

  1. Olá, já assisti ao vídeo e segui os passos, mas o código não está funcionando. Tem alguma sugestão de onde eu possa estar errando? Obrigada pelas informações!

Deixe um comentário ou uma dúvida

Compartilhe

Share on facebook
Share on twitter
Share on linkedin
Share on whatsapp
Share on telegram

Planilhas prontas

Bolão da Copa do Mundo FIFA 2018

Com o Bolão da Copa do Mundo FIFA 2018 do Função Excel, você terá um planilha super confiável, segura, fácil de mexer e de visual super profissional para controlar o bolão com seus amigos, familiares e principalmente, os colegas de trabalho.

Saber mais »

Composição de custos

Calcule e analise todos os custos diretos da produção de seus produtos, seja qual for o tamanho da sua empresa e seu ramo de atuação.

Gere relatórios detalhados que exibem a composição do custo de cada produto, de forma individual ou conjunta. Melhor precifique seus produtos mantendo uma margem de lucro de que você deseja.

Faça simulações com preços de insumos e veja o impacto de cada um na composição total de seu produto final.

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 »

Ajude o Função Excel a continuar te ajudando, faça um PIX!

Leia também...

Faça uma doação

Nos ajude a continuar te ajudando.
Faça uma doação!

Compartilhe com o mundo

Gostou do artigo?
Não seja egoista, compartilhe!

Share on facebook
Share on twitter
Share on linkedin
Share on whatsapp

fique SEMPRE ATUALIZADO!

Junte-se a lista de e-mails do Função Excel

Receba e-mails semanais e melhore constantemente suas habilidades com Excel

Inscreva-se