我想在调用此函数时插入文件。
我希望输入文件以特定的宽度,高度显示,并且具有文件的图标。
我也希望将输入放在特定的单元格中。
有没有更好的方法来定义我想要输入的单元格?我希望输入在单元格'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
由于答案,我更改了Top和Left以在正确的单元格中输入,但是我仍然不确定如何更改宽度和高度。我继续得到一个比它高的输入框。