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...

Subtotal

Subtotal Se você utiliza extensas listas de dados das quais precisa fazer filtros já deve ter passado por este problema. Ao filtrar uma lista de

Continuar lendo

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...

Função Matricial

Função Matricial Se você já possui alguma prática com o Excel é provável que já tenha ouvido falar em algum momento de função ou fórmula

Ler »

Gráfico auto-colorido

Gráfico auto-colorido Imagine que você tem um gráfico com a performance de vendas de sua empresa, seja ele um gráfico de linha ou um gráfico

Ler »

Congelar intervalos com $

Congelar intervalos com $ Uma das inúmeras vantagens em usar Excel ao invés de uma planilha de papel é poder escrever uma conta matemática, por

Ler »

One thought on “Exibir imagem ao selecionar célula

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

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 »

Gerador de catálogos 2.2

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 »

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