根据单元格值将图像文件插入电子表格

时间:2017-10-03 17:28:39

标签: excel image file insert

我在谷歌文档中有超过1,000张图片,这些图片的名称与谷歌表中列出的学生姓名(在某些情况下,当有多个同名文件时使用“(1,2 etc)”(我是也在将[相同名称文件]分隔在不同文件夹中的过程中)

如何让Google表格根据单元格中的名称插入图像文件,例如E5 John,Brown Doe 图像文件名John,Brown Doe.jpg(在谷歌文件夹名称图片中)

1 个答案:

答案 0 :(得分:1)

根据您的需要进行调整。假设我们在列 A

enter image description here

运行此:

Sub InstallPictures_2()
    Dim i As Long, v As String, shp As Shape
    For i = 1 To 1000
        v = Cells(i, "A").Value
        If v = "" Then Exit For
        With ActiveSheet.Pictures
            .Insert(v).Select
            Set shp = ActiveSheet.Shapes(Selection.Name)
            shp.Top = Cells(i, "B").Top
            shp.Left = Cells(i, "B").Left
            shp.Height = 100
            shp.Width = 100
        End With
    Next i

End Sub

将产生:

enter image description here