如何在excel插入指定图片图片

在EXCEL中A1格输入值：“照片1”，然后要在B1格中插入：”照片1“名称的照片，用宏该怎么做？

按ALT+F11，插入模块把下列的代码复制进去。
Sub 批量插入图片()
Dim wj As String
Dim rng As Range
Sheets("SHeet1").Select '选中要插入图片的工作表
x = [a65536].End(xlUp).Row '取得最后一行的行号
For i = 1 To x
na = Cells(i, 1) '从第二列（即B列）得到员工名字，并以此名查找图片
wj = "e:\照片" & "\" & na & ".jpg" '图片文件存储的路径与格式（.jpg）
If Dir(wj) <> "" Then
Cells(i, 2).Select '图片需要插入到第四列（即d列）
ActiveSheet.Pictures.Insert(wj).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
End If
Next
MsgBox "图片插入完毕"
End Sub

打开d:\tree目录下的工作簿，在excel工作表中同时按下alt和f11两个键，进入vba编程，点击vba编程中的菜单：“插入－模块”，把下面的代码粘贴到模块的空白区以后，返回到excel工作表，点击菜单工具－宏－宏，选择宏名kkk 运行代码。 sub kkk() aa = activeworkbook.sheets.count for i = 1 to aa worksheets(i).select worksheets(i).range("a2").select sheets(i).range("a2").rowheight = 60 activesheet.shapes.addshape(msoshaperectangle, 0, 48, 72, 60).select selection.shaperange.fill.visible = msofalse selection.shaperange.shadow.obscured = msotrue selection.shaperange.shadow.type = msoshadow18 selection.shaperange.fill.userpicture "d:\pic\" & worksheets(i).range("a1").value & ".jpg" next i end sub 每个工作表的a1单元格应输入“王二”等姓名，而且与d：\pic 目录下的图片文件对应