Views

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

Inline image 1
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

Tags: VBA, Excel, Tips, cell, célula, photo, insert, comments, comentários, add, adicionar, inserir,



Tags: , , , , , , , , , , ,

Nenhum comentário:

Postar um comentário

Assinar: Postar comentários (Atom)
diHITT - Notícias