VBA 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

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