Question

下面的代码无法正常工作，我看不到问题。使用此代码插入对象时，它将正确插入。如果我右键单击该对象，则确实会将放置属性设置为随单元格移动并调整大小。但是，对象实际上并没有随单元修剪和调整大小。我已经做过测试，以确保它本身不是excel的问题，方法是在没有代码的情况下手动插入对象，然后右键单击并手动设置放置属性，这样效果很好。任何人都可以提供一些见解来说明为什么此代码有效，但实际上并未使对象随单元移动并调整其大小。

Public Sub insertFile()
        Dim oleObj As OLEObject

        'Select the cell in which you want to place the attachment
        Range("K9").Select

        'Get file path
        fpath = Application.GetOpenFilename("All Files,*.*", Title:="Select file")
        If LCase(fpath) = "false" Then Exit Sub

        'Insert file
        Set oleObj = ActiveSheet.OLEObjects.Add(Filename:=fpath, Link:=False, DisplayAsIcon:=True, DisplayAsIcon:=True, IconFileName:="excel.exe", IconIndex:=0, IconLabel:=extractFileName(fpath))
        oleObj.Placement = XlPlacement.xlMoveAndSize

    End Sub

放置属性OLEObject

0 个答案: