Views

...

Important:

Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog podem ser tratados como consultoria freelance.

E-mails

Deixe seu e-mail para receber atualizações...

eBook Promo

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

TagsExcel, Tips, cell, célula, photo, insert, comments, comentários, add, adicionar, inserir,



eBooks VBA na AMAZOM.com.br

LinkWithinBrazilVBAExcelSpecialist

Related Posts Plugin for WordPress, Blogger...

Vitrine