一、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列）得到照片名，并以此名查找图片
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
二、excel如何批量导入图片
您好，方法
首先，我们在D盘（其他盘也可以）建一个文件夹，起名为“批量导入图片”（名字随意起），然后将需要导入到Excel中的图片放入此文件夹中。
接下来，我们使用Excel建一个工作表，输入“名称”、“照片”、“图片路径”。
在“图片路径”这一列，选中第一个单元格，输入如下内容：
。
这里有几点要注意：
1.存放位置和文件夹名称，根据你自己设计的填写。
2.照片名称要保持文件夹内的照片名字和表格中“名称”这一列所起的名字相同，不然导入照片会失败。
3.width=”130”、height=“120”是为导入的图片设定的大小，可根据需要自行设定数值。
Excel快速批量导入照片的方法
然后下拉“图片路径”列中的第一个单元格，将所有需要导入图片的行填充上述公式内容，根据“名称”列更改公式中的图片名字。然后，将每行列宽和行高调整成公式中所述的大小（比公式中的数值大即可）。
接下来，将更改好的所有公式复制，在图片存放的文件夹“批量导入图片”中建立一个记事本，将公式粘贴进去，保存记事本。
复制记事本中的内容，在表格中的“照片”一列粘贴，所有图片即导入成功。
