大家好,我们今日继续讲解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
代码截图:
领取专属 10元无门槛券
私享最新 技术干货