返回目录：excel表格制作
Sub 批量插入图片()
Dim wj As String
Dim rng As Range
Sheets("sheet1").Select '选中要插入图片的工作表
x = [a65536].End(xlUp).Row '取得最后一行的行号
For i = 2 To x
na = Cells(i, 1) '从第一列（即A列）7a64e59b9ee7ad94334得到照片名，并以此名查找图片
wj = "e:\pic" &
"\" & na & ".jpg" '图片文件存储的路径与格式（.jpg）
If Dir(wj) <> "" Then
Cells(i, 2).Select '图片需要插入到第二列（即B列）
ActiveSheet.Pictures.Insert(wj).Select
Set rng = Cells(i, 5) '根据单元格的大小调整图片
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
一、前提：
假设图片名称在A2:A15，不带扩展名，图片格式为jpg格式，图片保存在“D:\图片\”文件夹下
二、操作方法：
1、A2：A15输入图复片名称（不带扩展名）
2、B2输入
="<table><img src=""D:\照片\"&A2&".jpg""width=""176""height=""220"">"
3、下拉公式到B15
说明：公式中Width 和height是装入后的图片宽和高，可自行调整。
4、选中B2：B10，复制制
5、返回桌面，新建一个文本文件，并打开，粘贴
6、调整Excel行距，以确保图片能装下
7、选中文本文件中的全部内容，复制
8、转到Excel中，选中B2，选择性粘贴——Ubicode文本
9、所有图片立即以相同大小插入到了B2：B10
注意：如果粘贴后，图百片大小觉得不合适，这时度不要急于点选其他单元格，在全部图片选中状态，任意一张图片上鼠标右键——图片属性，设置其宽和高即可统一调整图片尺寸了。
Excel小技巧
这个我之前做过的，比较好的办法是将图片插入成为批注的背景图。之前在服装公司上班的时候，有做过这个。用VBA写的。