一、目的
将A2：A7的链接的图片插入到B2：B7，效果如下图
二、方法
步骤1：调出VBA模块
按"Alt + F11" 打开VBA编辑器（或者通过点击'开发工具'→'Visual Basic'）
步骤2：插入模块
右键工作簿 （链接所在的子表） → 插入 → 模块
步骤3：粘贴如下代码点击F5（或者上方的运行按钮）
vbscript
Sub 图片嵌入单元格()
' 1. 声明变量：告诉Excel要用到的"容器"类型
Dim rng As Range ' 声明rng为"单元格区域"变量，用来存放要遍历的A列单元格范围
Dim cell As Range ' 声明cell为"单个单元格"变量，用来逐个读取rng里的单元格
Dim pic As Picture ' 声明pic为"图片"变量，用来存放插入的图片对象
' 2. 定义要处理的单元格范围
' ThisWorkbook：当前打开的工作簿
' Sheets("Sheet1")：指定要操作的工作表（可改成你的表名，比如"图片列表"）
' Range("A2:A7")：指定A列第2行到第7行（可改成你的实际数据范围，比如A2:A100）
Set rng = ThisWorkbook.Sheets("Sheet1").Range("A2:A7")
' 3. 循环遍历rng里的每一个单元格
' For Each...Next：逐个取出rng里的单元格，赋值给cell变量
For Each cell In rng
' 4. 判断当前单元格是否有内容（避免处理空单元格）
' cell.Value：单元格里的内容（也就是你的图片链接/路径）
' <> ""：不等于空字符串
If cell.Value <> "" Then
' 5. 插入图片：根据单元格里的路径，在Sheet1中插入图片
' Pictures.Insert(路径)：Excel内置的插入图片方法，参数是图片的完整路径
' Set pic = ：把插入的图片对象赋值给pic变量，方便后续调整
Set pic = ThisWorkbook.Sheets("Sheet1").Pictures.Insert(cell.Value)
' 6. 批量设置图片的属性（With...End With：简化重复写pic.的操作）
With pic
' 6.1 调整图片位置：对齐到B列对应单元格的左上角
' cell.Offset(0, 1)：当前单元格向右偏移1列（即B列）
' .Top：图片的顶部位置 = B列单元格的顶部位置
.Top = cell.Offset(0, 1).Top
' .Left：图片的左侧位置 = B列单元格的左侧位置
.Left = cell.Offset(0, 1).Left
' 6.2 锁定图片比例：避免拉伸变形
' ShapeRange.LockAspectRatio：图片的比例锁定属性
' msoTrue：保持宽高比（如果设为msoFalse，图片会强制适配单元格，可能变形）
.ShapeRange.LockAspectRatio = msoTrue
' 6.3 调整图片大小：匹配B列单元格的尺寸
' .Width：图片宽度 = B列单元格的宽度
.Width = cell.Offset(0, 1).Width
' .Height：图片高度 = B列单元格的高度
.Height = cell.Offset(0, 1).Height
' 6.4 核心：设置图片嵌入单元格（关键属性）
' .Placement：图片的放置方式
' xlMoveAndSize：图片随单元格移动、且随单元格调整大小（嵌入单元格的核心）
' 补充：xlMove=只移动不调整大小；xlFreeFloating=完全浮动（默认）
.Placement = xlMoveAndSize
End With
End If
' 7. 循环到下一个单元格
Next cell
' 8. 结束这个子程序
End Sub备注：若是wps格式的表格，可以参考文章，直接一键搞定！excel：图片链接批量转为单元格图片-python-CSDN博客