Excel VBA如何插入静态/嵌入图片而非Linked Picture

要插入非链接、可随Excel文件保存的静态图片，别用Pictures.Insert（它默认创建外部链接），直接用Shapes.AddPicture方法就行——这是最直接高效的方案，能完美解决你遇到的链接失效、画质下降和运行慢的问题。

核心示例代码 #

Sub InsertEmbeddedImage()
    Dim imagePath As String
    Dim targetRange As Range
    Dim insertedShape As Shape
    
    ' 替换为你的图片实际路径
    imagePath = "C:\Documents\your_image.png"
    ' 替换为你想插入图片的目标单元格
    Set targetRange = ActiveSheet.Range("B2")
    
    ' 添加嵌入图片：不创建外部链接，随文件保存，保留原尺寸
    Set insertedShape = ActiveSheet.Shapes.AddPicture( _
        Filename:=imagePath, _
        LinkToFile:=msoFalse, _
        SaveWithDocument:=msoTrue, _
        Left:=targetRange.Left, _
        Top:=targetRange.Top, _
        Width:=-1, ' -1 表示使用图片原始宽度
        Height:=-1) ' -1 表示使用图片原始高度
End Sub

参数关键说明 #

• LinkToFile:=msoFalse：核心参数，设为msoFalse（对应数值0）时，图片会直接嵌入Excel文件，不会生成外部链接，发送给他人后无需依赖原图片文件。
• SaveWithDocument:=msoTrue：确保图片随Excel文件一起保存，打开文件时直接加载嵌入的图片。
• Width/Height设为-1：保留图片原始尺寸；如果需要自定义大小，直接替换为具体数值（比如Width:=100, Height:=80）即可。

对比你之前的方案 #

• 画质问题：AddPicture直接读取并嵌入原始图片，不会有任何画质损失，完全保留图片原有清晰度。
• 速度问题：不需要先复制再粘贴的额外步骤，运行效率比CopyPicture+Paste高很多。

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