Отображение картинки из URL в Excel

Question

Я работаю с Excel 2013.

Кто-то может знать, как показать картинку вместо URL. У меня есть список URL и по формуле VLOOKUP я хочу отобразить картинку.

Через VLOOKUP я нахожу URL, затем использую HYPERLINK .

Поэтому, когда я набираю новый код товара в поле поиска, мне нужно показать картинку.

Я старался:

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

Однако каждый раз, когда я набираю новый код, картинка не обновляется.

Я должен снова запустить модуль.

А также, может быть, это какое-то расширение скрипта, которое может регулировать размер изображения на картинке?

Answer 1

Вы можете использовать триггер смены рабочего листа.

Попробуйте приведенный ниже код вместо вашего текущего кода.

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

Замените A1 на CELL, где вы вводите свой «новый код»