excel：图片链接批量转为单元格图片-vb

一、目的

将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博客