快速、准确地在工作表中插入图片，VBA带你完善数据图片资料

大家好，我们今日继续讲解VBA代码解决方案的第101讲内容：工作表中自动插入图片

在工作中经常需要在工作表中插入大量图片，比如在工作表中需要，在A列我们录入名称在B列插入保存在同一目录中的相应的图片，如果使用手工插入不仅非常繁琐且极易出错，而使用VBA代码可以很好的完成操作。看到这里是否大家想到了单位的考勤系统呢？是的，这里的原版就是为了解决考勤系统来写的。

如何在EXCEL的单元格中插入图片呢？这就要用到Pictures.Insert(FilPath)的命令了，其中FilPath为要插入图片的路径。我们看下面的实测代码：

Sub MynzinsertPic()

Dim i As Integer

Dim FilPath As String

Dim rng As Range

Dim ns As String

With Sheets("Sheet14")

For i = 2 To .Range("a65536").End(xlUp).Row

FilPath = ThisWorkbook.Path & "\" & .Cells(i, 1).Text & ".jpg"

If Dir(FilPath) "" Then

.Pictures.Insert(FilPath).Select

Set rng = .Cells(i, 2)

With Selection

.Top = rng.Top + 1

.Left = rng.Left + 1

.Width = rng.Width - 1

.Height = rng.Height - 1

End With

Else

ns = ns & Chr(10) & .Cells(i, 1).Text

End If

Next

.Cells(3, 1).Select

End With

If ns "" Then

MsgBox ns & Chr(10) & "没有相应的照片，请确认！"

End If

End Sub

代码截图：