Exibindo foto do url no Excel

Question

Estou trabalhando com o Excel 2013.

Alguém pode saber como mostrar a imagem em vez de URL. Eu tenho a lista de URLs e por VLOOKUP formula eu quero exibir a imagem.

Por meio de VLOOKUP , localizo o URL e, em seguida, uso HYPERLINK .

Então, quando eu digito um novo código de item no campo de busca, preciso que a imagem seja mostrada.

Eu tentei:

Sub Test()
    Dim Pic As Picture
    Application.ScreenUpdating = False
    With ActiveSheet.Range("k19")
        Set Pic = .Parent.Pictures.Insert(.Value)
        With .Offset(, -1)
            Pic.Top = .Top
            Pic.Left = .Left
            Pic.Height = .Height
            Pic.Width = .Width
        End With
    End With
    Application.ScreenUpdating = True
End Sub

No entanto, toda vez que eu digito um novo código, a imagem não é atualizada.

Eu tenho que executar o módulo novamente.

E também talvez seja alguma extensão do script que possa ajustar o tamanho de exibição da foto?

    

Answer 1

Você pode usar um acionador de alteração da planilha de trabalho.

Experimente o código abaixo no lugar do seu código atual.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
Dim Pic As Picture
    Application.ScreenUpdating = False
    With ActiveSheet.Range("k19")
        Set Pic = .Parent.Pictures.Insert(.Value)
        With .Offset(, -1)
            Pic.Top = .Top
            Pic.Left = .Left
            Pic.Height = .Height
            Pic.Width = .Width
        End With
    End With
    Application.ScreenUpdating = True
End If
End Sub

Altere A1 para CELL, onde você insere seu 'Novo código'