如何在Excel中嵌入图片而非链接到外部文件

你当前使用的Pictures.Insert方法是将图片链接到Excel文件，而非嵌入到文件内部。一旦原图片文件被删除、重命名或移动位置，Excel无法找到源文件，就会导致图片丢失。

改用Shapes.AddPicture方法，通过参数设置将图片直接嵌入Excel文件，这样图片会保存到Excel中，不再依赖外部文件。同时修正原代码中多选择功能的错误（原代码用String接收多选择的文件路径会报错）：

Private Sub CommandButton1_Click()
    Sheet3.Activate
    Dim uk_gbr As Range
    Dim gbr As Shape
    Dim tp_gbr As Variant ' 改为Variant类型，用于接收多选择返回的数组
    Dim i As Integer
    
    ' 打开文件选择对话框，允许多选图片
    tp_gbr = Application.GetOpenFilename("Pilih Gambar (*.jfif; *.jpg; *.png),", _
        "*.jfif; *.jpg; *.png", MultiSelect:=True)
    
    ' 判断是否选择了图片文件
    If IsArray(tp_gbr) Then
        On Error Resume Next
        Set uk_gbr = Application.InputBox("Pilih Cell:", "Masukkan Gambar", ActiveCell.Address, Type:=8)
        On Error GoTo 0
        
        If Not uk_gbr Is Nothing Then ' 确认用户选择了目标单元格
            uk_gbr.Activate
            ' 遍历所有选中的图片文件
            For i = LBound(tp_gbr) To UBound(tp_gbr)
                ' 插入图片并嵌入到Excel文件
                Set gbr = ActiveSheet.Shapes.AddPicture( _
                    Filename:=tp_gbr(i), _
                    LinkToFile:=msoFalse, _
                    SaveWithDocument:=msoTrue, _
                    Left:=uk_gbr.Left, _
                    Top:=uk_gbr.Top, _
                    Width:=-1, ' -1表示保持图片原始宽高比
                    Height:=249.12)
            Next i
        End If
    End If
    
    Set uk_gbr = Nothing
    Set gbr = Nothing
    Sheet1.Activate
End Sub

• 将tp_gbr的类型改为Variant，适配多选择文件时返回的数组格式
• 用Shapes.AddPicture替代Pictures.Insert，通过LinkToFile:=msoFalse和SaveWithDocument:=msoTrue实现图片嵌入
• 添加了用户是否选择单元格的判断，避免空引用错误
• 支持批量插入选中的多张图片

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