Excel VBA按单元格值插入图片 取消源文件链接问题求解

• 原代码的参数写法存在语法错误：VBA中给方法传递命名参数必须使用参数名:=值的格式，原代码里Pictures.Insert(picPath, LinkToFile = False)中的LinkToFile = False是逻辑判断表达式，并没有正确给方法传入「不链接文件」的参数，实际插入的图片默认是链接源文件的模式。
• 链接模式下Excel不会把图片本身的数据存入工作簿，只会记录源文件的本地路径，一旦源文件夹被重命名、移动、删除，Excel找不到对应路径就会导致图片消失。
• 后续在ShapeRange中重复设置LinkToFile、SaveWithDocument属性的操作，对已经以链接模式插入的图片不生效，无法解除和源文件的关联。
• 额外逻辑问题：定义的fPath末尾已经带了反斜杠，拼接路径时又额外加了一个反斜杠，会生成带双反斜杠的路径格式，虽然Windows系统通常能容错，但属于不规范写法。

放弃使用Pictures.Insert方法，改用Shapes.AddPicture方法插入图片，这个方法可以在插入时就明确指定「是否链接源文件」「是否随文档保存图片」两个核心参数，直接插入嵌入模式的图片——图片数据会完整存入Excel文件，插入完成后和源文件夹彻底无关联，源文件改动不会影响工作表内的图片。

修正后的可直接运行的代码如下：

Sub InsertPictures()
    Const fPath As String = "C:\Desktop\Final snap as 0n 28 Jun\"
    Dim cel As Range, picPath As String
    
    Application.ScreenUpdating = False
    ' 遍历M列从M4开始的所有有值单元格
    For Each cel In Range("M4", Range("M" & Rows.Count).End(xlUp))
        picPath = fPath & cel.Value & ".jpg"
        ' 校验目标图片是否存在
        If Dir(picPath) <> vbNullString Then
            ' 插入嵌入模式图片，直接指定位置和尺寸
            cel.Parent.Shapes.AddPicture _
                FileName:=picPath, _
                LinkToFile:=msoFalse, _
                SaveWithDocument:=msoTrue, _
                Left:=cel.Offset(0, 1).Left, _
                Top:=cel.Offset(0, 1).Top, _
                Width:=100, _
                Height:=100
        End If
    Next cel
    Application.ScreenUpdating = True
End Sub

• 运行前把常量fPath的值改成实际存放图片的文件夹路径，注意路径末尾要保留反斜杠\
• 之前用旧代码插入的链接类图片建议全部删除后再运行新宏，已经插入的链接图片无法直接转为嵌入模式
• 新宏插入的图片会完整保存在工作簿内，后续移动、删除源文件夹都不会导致图片丢失。

内容的提问来源于stack exchange，提问作者Sanket_Sk