Passe o mouse para exibir fotos (imagens) de forma automática usando um simples código VBA. Com isso, as suas planilhas Excel ficarão mais profissionais.

O nosso canal tem como objetivo ensinar Excel e VBA a internautas com pouco ou nenhum conhecimento sobre o assunto. VBA, ou Visual basic for Application, é uma linguagem de programação que automatiza qualquer tarefa em suas planilhas. Confira!

CÓDIGO DESTE VÍDEO:
Sub Comentario_01()
ActiveCell.AddComment
ActiveCell.Comment.Visible = True
ActiveCell.Comment.Text Text:=""
ActiveCell.Comment.Shape.Select
Selection.ShapeRange.Fill.UserPicture "C:\Users\Nilton\Downloads\ABC-1234.jpg"
ActiveCell.Comment.Visible = False
End Sub

'----------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo A
Dim Lin As Integer
Dim Placa As Variant

Lin = ActiveCell.Row - 1
Placa = Cells(Lin, 2).Value

If Target.Column = 2 Then
With Cells(Lin, 2)
.ClearComments
.AddComment
.Comment.Visible = True
.Comment.Shape.Select
Selection.ShapeRange.Fill.UserPicture "C:\Users\Nilton\Downloads\" & Placa & ".jpg"
.Comment.Visible = False
End With
End If
Exit Sub

A:
Selection.ShapeRange.Fill.UserPicture "C:\Users\Nilton\Downloads\Sem_Imagem.jpg"
Resume Next
End Sub

DOWNLOAD ARQUIVOS GRÁTIS:
[ Ссылка ]

PLAYLIST PERGUNTAS DOS INTERNAUTAS:
[ Ссылка ]

PLAYLIST DICAS RÁPIDAS:
[ Ссылка ]

PLAYLIST PROCEDIMENTOS:
[ Ссылка ]

PLAYLIST FORMULÁRIOS:
[ Ссылка ]

свернуть