在具有特定宽度和高度的特定单元格中插入OLEObject

我想在调用这个函数时插入文件。

我想input文件以特定的宽度，高度显示，并有文件的图标。

我也想要input在特定的单元格中。

有没有更好的方法来定义我想要input的单元格？ 我想input在单元格'I5'，但我不知道如何出去做这个与OLEObjects.Add中的顶部和左侧参数。

Sub FileToLink() Dim strFileName As String Dim strShortName As String Dim f As OLEObject strFileName = Application.GetOpenFileName("All Documents (*.*), *.*") If strFileName = "False" Then Exit Sub ' user cancelled End If strShortName = InputBox("What do you want to call this link?", "Short Text", strFileName) Set f = ActiveSheet.OLEObjects.Add( _ Filename:=strFileName, _ Link:=False, _ DisplayIcon:=False, _ IconFileName:=strFileName, _ IconIndex:=0, _ IconLabel:=strShortName, _ Top:=Range("I5").Top, _ Left:=Range("I5").Left, _ Width:=10, _ Height:=10) End Sub 

感谢一个答案，我改变了顶部和左侧，使input在正确的单元格，但是我仍然不确定如何改变宽度和高度。我继续得到一个比它高的input框。