Vba 将图像作为嵌入而不是链接插入

下面的代码是我从一些帮助中获得的，通过SO和我加入的其他一些资源。通过一些小的改动，我可以在电子表格中使用它

Sub AddPicture(l As Long, t As Long, w As Long, h As Long, aRatio As Boolean)

    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .ButtonName = "Submit"
        .Title = "Select an image file"
        .Filters.Clear
        .Filters.Add "All Pictures", "*.*"

        If .Show = -1 Then
            Dim img As Picture
            Set img = ActiveSheet.Pictures.Insert(.SelectedItems(1))

            If (Not aRatio) Then
                img.ShapeRange.LockAspectRatio = msoFalse
            Else
                img.ShapeRange.LockAspectRatio = msoTrue
            End If
            img.left = l
            img.top = t
            img.width = w
            img.height = h
        Else
        End If
    End With

End Sub

---

关于这段代码，我注意到的一点是，图像被添加为

链接图像

，这可能会导致一些问题。。。是否仍要将这些作为嵌入图像添加？

将其添加到文件选择器的with块中

FullPathName=.SelectedItems（1）

然后在brax的回答中链接更改

文件名：=“C:\test\desert.jpg”

到

文件名：=完整路径名

---

@braX似乎可以使用已知的文件路径进行查找和处理，但是当请求用户选择一个项目时，我该如何做呢？