Vba 指定上载文件在图纸上的位置

我正在使用作为答案提供的脚本将文件上载到Excel文档。如何指定文件图标的显示位置？实际上，图标会自动显示在我分配VBA脚本的按钮上。

尝试以下操作：

Dim fn As String, sht as Worksheet
fn = "C:\Users\fffffffff\Desktop\tester.xlsx"
Set sht = ActiveSheet
With sht.OLEObjects.Add(Filename:=fn, Link:=False, DisplayAsIcon:=True)
    .Left = sht.Range("E5").Left
    .Top = sht.Range("E5").Top
End With

---

选择需要显示图标的单元格

假设行=10，列=10

ActiveSheet.Cells（10，10）。选择“这将聚焦所需的单元格”

ActiveSheet.OLEObjects.Add（文件名：=fullFileName，链接：=False， DisplayAsIcon:=True，IconFileName:=\uIContouse，IconIndex:=0， IconLabel:=完整文件名）。选择

---

您是否尝试过选择一个显示图标的单元格？假设行=10，列=10，ActiveSheet.Cells（10，10）。选择ActiveSheet.OLEObjects.Add（文件名：=fullFileName，链接：=False，DisplayAsIcon:=True，IconFileName:=\iconToUse，IconIndex:=0，IconLabel:=fullFileName）。选择该选项效果良好。如果你把它作为回答，我会接受的。