在工作中经常会遇到需要在EXCEL中根据信息内容插入图片，少量的时候还可以手动插入，当遇到大量需要添加图片的时候手工根本是无法完成的，这时候就需要用到EXCEL的宏命令来完成了。

使用要求

• 需要EXCEL和图片均在一个目录下。
• 需要图片为jpg格式（最好尺寸一致，方便排版）。
• 图片名称需要与插入单元格内的信息一致。（根据需要自行制定规则）

使用方法

1. 打开EXCEL文件
2. 按住Alt + F11打开Visual Basic。
3. 在Visual Basic菜单中选“插入” -> “模块”。
4. 复制代码区域代码到其中。
5. 选中EXCEL中需要批量插入图片的单元格。
   例如：单元格内容为1，这个地方将插入1.jpg的图片
6. 在Visual Basic菜单中选“运行” -> “运行子过程/用户窗体”（快捷键F5）

批量插入图片代码

Sub 插入图片到单元格()
On Error Resume Next

Dim MR As Range

For Each MR In Selection

If Not IsEmpty(MR) 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

End Sub