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

Question

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

例如，

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

图片位于同一目录中。

有什么办法吗？

Answer 1

使用此代码，您可以在单元格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