excel表格怎么批量嵌入照片

1.excel怎么快速批量插入照片

方法/步骤

在此小编举例说明，因此Excel表格记录相对较少，如图所示，我们需要将对应照片插入“照片”列。

首先，我们需要将照片放置一个文件夹内，建议对照片进行有规则的命名，这样可以方便快捷创建多个图片链接。

打开记事本程序，按如下格式输入图片的链接：

<table><img src="https://www.officexr.com/msexcel/d:/pic/*.jpg" width="140" height="140">

将记事本中的文本全选进行复制，在Excel工作表中，右击“照片”列第一行，从弹出的右键菜单中选择“选择性粘贴”项。

5

在弹出的“选择性粘贴”窗口中，选中“Unicode文本”项，直接点击“确定”按钮。

6

最后就会发现相关的照片自动插入到“照片”所在单元格啦。

2.Excel怎样批量插入照片

在此小编举例说明，因此Excel表格记录相对较少，如图所示，我们需要将对应照片插入“照片”列。

Excel怎么批量插入图片

首先，我们需要将照片放置一个文件夹内，建议对照片进行有规则的命名，这样可以方便快捷创建多个图片链接。

Excel怎么批量插入图片

打开记事本程序，按如下格式输入图片的链接：

<table><img src="https://www.officexr.com/msexcel/d:/pic/*.jpg" width="140" height="140">

Excel怎么批量插入图片

将记事本中的文本全选进行复制，在Excel工作表中，右击“照片”列第一行，从弹出的右键菜单中选择“选择性粘贴”项。

Excel怎么批量插入图片

在弹出的“选择性粘贴”窗口中，选中“Unicode文本”项，直接点击“确定”按钮。

Excel怎么批量插入图片

最后就会发现相关的照片自动插入到“照片”所在单元格啦。

Excel怎么批量插入图片

3.如何在excel中批量导入图片

比如你在SHEET1工作表批量插入图片，b列是图片名称，把在E盘下照片文件夹中对应名称图片插入到D列，按ALT+F11打开VBA，插入---模块---把下面代码复制进去。

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, 2) '从第二列（即B列）得到图片名称，并以此名查找图片

wj = "e：\照片" & "\" & na & ".jpg" '图片文件存储的路径与格式（.jpg）

If Dir(wj) "" Then

Cells(i, 4).Select '图片需要插入到第四列（即d列）

ActiveSheet.Pictures.Insert(wj).Select

Set rng = Cells(i, 4) '根据单元格的大小调整图片

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

退出VBA，在工具---宏---选择---批量插入图片（）---执行。

4.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