Excel 图片路径秒变缩略图：相对路径 + 批量嵌入，换电脑也能看！

📁 项目文件夹/          <-- 你把 Excel 存在这里
│  📄 数据表.xlsx
│
└── 📁 images/          <-- 图片存放在这里
       ├── pic1.jpg
       ├── pic2.jpg
       └── pic3.jpg

此时，你在 Excel 的 A 列填写的相对路径应该是 images/pic1.jpg。

准备 Excel 表格

假设你的表格结构如下：

• A列：图片的相对路径（如 images/pic1.jpg）
• B列：用于显示图片的目标位置（请先将 B 列的行高拉大，比如拉到 80，否则图片会挤在一起）

使用 VBA 批量插入图片

• 在 Excel 中，按下 Alt + F11 打开 VBA 编辑器。
• 在左侧的“工程”窗口中，右键点击你的工作簿，选择 插入 -> 模块。
• 将以下代码复制粘贴到右侧的代码窗口中：

Sub InsertPicturesRelativeToCell()
    Dim ws As Worksheet
    Dim rng As Range, cell As Range
    Dim picPath As String, fullPath As String
    Dim pic As Shape
    Dim targetCell As Range
    
    ' --- 设置参数 ---
    Set ws = ActiveSheet
    Set rng = ws.Range("A2:A4") ' 含相对路径的单元格
    Const colOffset As Integer = 1 ' 偏移1列放到S列
    
    For Each cell In rng
        Set targetCell = cell.Offset(0, colOffset)
        
        ' 清除旧图片
        For Each pic In ws.Shapes
            If pic.TopLeftCell.Address = targetCell.Address Then pic.Delete
        Next pic
        
        picPath = Trim(cell.Value)
        
        If picPath <> "" Then
            fullPath = ThisWorkbook.Path & "\" & Replace(picPath, "/", "\")
            
            If Dir(fullPath) <> "" Then
                ' 插入图片 (以原始尺寸先放进去)
                Set pic = ws.Shapes.AddPicture(Filename:=fullPath, LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=targetCell.Left, Top:=targetCell.Top, Width:=-1, Height:=-1)
                
                With pic
                    ' 【核心1】让图片随单元格移动和改变大小
                    .Placement = xlMoveAndSize
                    
                    ' 【核心2】锁定纵横比，防止变形
                    .LockAspectRatio = msoTrue
                    
                    ' 【核心3】让图片完美撑满或适应单元格 (留2像素边距)
                    ' 先尝试按高度匹配
                    .Height = targetCell.Height - 4
                    ' 如果宽度超出单元格，则改按宽度匹配
                    If .Width > targetCell.Width - 4 Then
                        .Width = targetCell.Width - 4
                    End If
                    
                    ' 【核心4】水平垂直居中于单元格
                    .Top = targetCell.Top + (targetCell.Height - .Height) / 2
                    .Left = targetCell.Left + (targetCell.Width - .Width) / 2
                End With
            Else
                targetCell.Value = "未找到"
                targetCell.Font.Color = vbRed
            End If
        End If
    Next cell
    MsgBox "图片插入完成！", vbInformation
End Sub

修改代码中的参数：

* Set rng = ws.Range("A2:A100")：改成你实际填写路径的单元格范围。
* Const colOffset As Integer = 1：1 表示图片显示在路径右侧的 B 列；如果写 0，图片会直接覆盖在 A 列的路径文字上。
* Const maxPicHeight As Double = 60：根据你设置的行高调整图片大小。

最后按 F5 键运行代码，等待片刻，图片就会自动嵌入到 B 列中了。

⚠️ 重要提醒与区别说明

在 VBA 代码中，有两个关键参数决定了图片的存储方式，我在上面的代码中默认使用了嵌入模式：

1. 嵌入模式（当前代码默认）：
   LinkToFile:=msoFalse, SaveWithDocument:=msoTrue
   • 效果：图片会被直接打包进 Excel 文件中。
   • 优点：你把 Excel 发给别人，别人也能看到图片；即使原图片文件夹被删除，Excel 里的图片依然存在。
   • 缺点：Excel 文件体积会急剧膨胀变大。
2. 链接模式（严格意义上的相对路径引用）：
   如果你希望 Excel 文件体积小，只保存链接，可以修改代码为：
   LinkToFile:=msoTrue, SaveWithDocument:=msoFalse
   • 效果：Excel 只保存图片的相对路径引用，不在文件内保存图片本体。
   • 优点：Excel 文件非常小。
   • 缺点：你把 Excel 发给别人时，必须连着 images 文件夹一起打包发，且相对目录结构不能变。一旦图片丢失，Excel 里将显示红叉。