✔ VBA Dashboards Specialist®: Excel Tip - Insira Fotos nos Comentários de cada Célula

10 de maio de 2013

Excel Tip - Insira Fotos nos Comentários de cada Célula - Add photos to cells inside comments

|Blog Office VBA | Blog Excel | Blog Access |

DESENVOLVO APLICAÇÕES VBA

Acesse uma ENORME lista de Dashboards e Infográficos

Aprenda a detectar gráficos que precisam mudar

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Dashboards e Infocharts - Diversas Visualizações de Dados

Diversos exemplos de Gráficos

Excel - DashMap - Mapa do Brasil

Key Performance Indicators - 7 Características desejáveis

MIS - Usufruindo a excelência na análise das suas Informações

O Melhor do Business Intelligence

Os 10 mandamentos do gerenciamento de projetos

Receba 3 Calendários Customizáveis de 2013 em Excel

Usando Gauges em Dashboards no MS Access

Você tem direito as informações da sua empresa

Suponhamos que tenha uma planilha com uma lista de nomes de funcionários e queira ver as respectivas fotos destes funcionários.

Mais uma dica rápida, aprenda a inserir imagens dentro dos comentários das células.

A partir de uma pasta com as respectivas fotos, cada arquivo será o número do empregado. E a dica para visualizar as fotos de modo rápido e dinâmico, decidi colocar cada foto dentro de um comentário, em cada célula. Desse modo, quando passar o número do funcionário, uma janela de comentário aparecerá com a foto.

Mas é claro que desejo que todos usem a criatividade desenvolvendo novas soluções:

- Álbuns de fotos

- Capas dos seus CDs

- Capas da sua Lista de Blue-Rays

- Seus filmes preferidos

- Os livros que mais gosta

- Os produtos da sua empresa que estão sendo mostrados no gráfico imediatamente acima da lista

- As logomarcas das empresas comparadas dentro de um market share

Sub InsertPictures()
Dim cll As Range
Dim rng As Range

Dim strPath As String

Let strPath = "D:\Bernardes\Photos"

With Sheets("Sheet1")

Set rng = Range("A2:A416")
End With

For Each cll In rng
If Dir$(strPath & "\" & cll.Value & ".jpg") <> "" Then

With cll
.ClearComments

.AddComment ("")
.Comment.Shape.Fill.UserPicture (strPath & "\" & cll.Value & ".jpg")

Let .Comment.Shape.Height = 160

Let .Comment.Shape.Width = 120

Let .Comment.Shape.LockAspectRatio = msoTrue

End With
End If

Next cll
End Sub