✔ Programação GLOBAL®: VBA Excel Tip - Insira Fotos nos Comentários de cada Célula

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