VBA插入图片问题：原文件更新后旧插入图片同步变更求助

问题根源是你当前的宏采用了链接式插入：Excel仅保存图片的外部文件路径，每次打开文档时会从该路径读取最新图片内容。要让图片固定在Excel中，需改为嵌入式存储，将图片数据直接写入Excel文件，不再依赖外部源文件。

方法1：插入时直接嵌入图片 #

修改Shapes.AddPicture的参数，明确指定不链接原文件、随文档保存：

Sub InsertEmbeddedPicture()
    Dim picPath As String
    picPath = "C:\你的图片路径\example.png" '替换为实际图片路径
    
    ActiveSheet.Shapes.AddPicture _
        Filename:=picPath, _
        LinkToFile:=msoFalse, '禁用外部链接
        SaveWithDocument:=msoTrue, '将图片数据存入Excel
        Left:=50, Top:=50, Width:=150, Height:=150 '按需调整位置和尺寸
End Sub

方法2：批量转换已插入的链接图片 #

如果已经插入了一批链接图片，可通过以下代码批量转为嵌入格式：

Sub ConvertLinkedPicsToEmbedded()
    Dim shp As Shape
    For Each shp In ActiveSheet.Shapes
        '判断是否为链接式图片
        If shp.Type = msoLinkedPicture Then
            '断开链接，转为嵌入
            shp.LinkFormat.BreakLink
        End If
    Next shp
End Sub

注意事项 #

• 嵌入图片会使Excel文件体积增大，因为图片数据被直接存储在文档内，这是正常现象。
• 操作后再次修改原图片文件，关闭并重新打开Excel时，文档内的图片不会再同步变化。

内容的提问来源于stack exchange，提问作者Tan Yang Keat