แสดงรูปจาก url ใน Excel

ฉันทำงานกับ 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

อย่างไรก็ตามทุกครั้งที่ฉันพิมพ์รหัสใหม่ภาพจะไม่รีเฟรช

ฉันต้องเรียกใช้โมดูลอีกครั้ง

และบางทีมันอาจเป็นส่วนขยายของสคริปต์ที่สามารถปรับขนาดการแสดงผลของรูปภาพได้?

คุณสามารถใช้ทริกเกอร์เปลี่ยนเวิร์กชีท

ลองใช้รหัสด้านล่างแทนรหัสปัจจุบันของคุณ

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 เป็นเซลล์ที่คุณป้อน 'รหัสใหม่' ของคุณ