excel自动插入目录下的图片

以下是参照百度文库中的描述自己试验成功的步骤。

A列是姓名，B列是序号，想将头像插入到C列。则：

1、打开excel文档，ALT+F11，打开vba编辑模式。

2、将如下信息拷贝到里面，保存，并关闭。

Sub insertPic()

' Dir函数批量获取指定目录下所有文件名和内容

On Error Resume Next

Application.ScreenUpdating = False 

Dim MR As Range

For Each MR In Selection

If Not IsEmpty(MR) And Dir(ActiveWorkbook.Path & "\" & MR.Value & ".JPG") <> "" Then

MR.Select

ML = MR.Left

MT = MR.Top

MW = MR.Width

MH = MR.Height

ActiveSheet.Shapes.AddShape(msoShapeRectangle, ML, MT, MW, MH).Select

Selection.ShapeRange.Fill.UserPicture _

ActiveWorkbook.Path & "\" & MR.Value & ".JPG" 

End If

Next

Set MR = Nothing

Application.ScreenUpdating = True 

End Sub

3、关闭VBA窗口，Excel-视图-宏-查看宏；

4、拷贝 B列的序号 到后面C列；

5、选中所要插入图片的单元格，也即 C列，选择insertPic点击 执行，时间会很长的。

 6、图片自动插入对应的单元格中，也即：C列。（图片尺寸均可通过单元格大小进行调整，边框可设置）