可以使用 Excel 的“宏”功能来批量插入一组图片并将其与单元格中的数据一一对应。以下是一些步骤:
1. 打开 Excel 文件并按下“Alt”和“F11”键,打开 Visual Basic 编辑器。
2. 在“插入”菜单中,选择“模块”。
3. 在新模块中,输入以下代码:
Sub InsertPictures()
Dim PicPath As String
Dim PicName As String
Dim PicTop As Single
Dim PicLeft As Single
Dim PicWidth As Single
Dim PicHeight As Single
Dim Rng As Range
Set Rng = Selection
For Each cell In Rng
PicPath = "C:UsersUserNamePictures"
PicName = cell.Value & ".jpg"
PicTop = cell.Top
PicLeft = cell.Left + cell.Width
PicWidth = cell.Width
PicHeight = cell.Height
If Dir(PicPath & PicName) <> "" Then
ActiveSheet.Shapes.AddPicture _
Filename:=PicPath & PicName, _
LinkToFile:=msoFalse, _
SaveWithDocument:=msoTrue, _
Left:=PicLeft, Top:=PicTop, _
Width:=PicWidth, Height:=PicHeight
End If
Next cell
End Sub
4. 将代码中的“C:UsersUserNamePictures”替换为您存储图片的文件夹路径。
5. 将代码中的“.jpg”替换为图片的文件类型。
6. 保存文件并关闭 Visual Basic 编辑器。
7. 选中要插入图片的单元格范围。
8. 按下“Alt”和“F8”键,打开“宏”对话框。
9. 选择“InsertPictures”宏并单击“运行”。