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

时间:2016-07-09 04:41:30

标签: excel vba excel-vba

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

我希望输入文件以特定的宽度,高度显示,并且具有文件的图标。

我也希望将输入放在特定的单元格中。

有没有更好的方法来定义我想要输入的单元格?我希望输入在单元格'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以在正确的单元格中输入,但是我仍然不确定如何更改宽度和高度。我继续得到一个比它高的输入框。

0 个答案:

没有答案