excel - 根据MS Excel中的单元格值显示文件夹中的图像

我想基于Microsoft Excel中的相关单元格值显示图像。

例如，

A1 = "mypic.png"        B1 cell should show mypic.png
A2 = "anotherpic.png"   B2 cell should show anotherpic.png

图片位于同一目录中。

有什么办法吗？

最佳答案

使用此代码，您可以将图像存储在单元格F20中的单元格A1中。使用完整路径，例如D:\one.jpg。用您的工作表名称更改Tabelle1。

Sub Test()
    Dim objPicture As Picture
    With Tabelle1.Cells(20, 6) ' Picture starts in cell F20 -> change as you need
        Set objPicture = .Parent.Pictures.Insert(Tabelle1.Cells(1, 1).Value)
        objPicture.Top = .Top
        objPicture.Left = .Left
        objPicture.Height = 150
        objPicture.Width = 150
    End With
End Sub