☰

在 Excel 中显示来自 url 的图片

tag-icon • tag-icon microsoft-excel vba
在 Excel 中显示来自 url 的图片

我正在使用 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

但是，每次我输入新代码时图片都不会刷新。

我必须再次运行该模块。

也许它是脚本的一些扩展，可以调整图片的显示大小？

答案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 更改为输入“新代码”的单元格

相关内容