vba - 将 OLEObject 显示为默认图标

Question

我正在尝试从当前文件显示指向其他 Excel 文件的链接。我能够将其显示为自定义图标，指定图标的路径，但如果可能的话，我想显示为默认的 Excel 图标，因此我不必将此图标文件发送给用户。

v_sheet.OLEObjects.Add Filename:=v_fileNameToImport, Link:=True, DisplayAsIcon:=True, _
Top:=40, Left:=40, Width:=100, Height:=100, IconLabel:=v_regions(j), IconFileName:=v_iconFile, IconIndex:=0

documentation说:

IconFileName Optional

A string that specifies the file that contains the icon to be displayed. This argument is used only if DisplayAsIcon is True. If this argument isn't specified or the file contains no icons, the default icon for the OLE class is used.

但就我而言，这不起作用。如果我没有指定图标，它会显示为一个空白矩形。我必须做什么才能显示此默认图标？

Answer 1

似乎您总是必须指定图标路径。我已经录制了一个宏并通过 UI 添加，这就是我得到的:

Sub Macro1()
'
' Macro1 Macro
'
    Workbooks.Open Filename:= _
        "C:\Path\FileToAdd.xls"
    ActiveWindow.Visible = False
    ActiveSheet.OLEObjects.Add(Filename:= _
        "C:\Path\FileToAdd.xls.xls" _
        , Link:=True, DisplayAsIcon:=True, IconFileName:= _
        "C:\windows\Installer\{90140000-0011-0000-0000-0000000FF1CE}\xlicons.exe", _
        IconIndex:=0, IconLabel:= _
        "C:\Path\FileToAdd.xls" _
        ).Select
    Range("G8").Select
End Sub

我发现你可以简单地做:

IconFileName:= "excel.exe"

它适用于我和其他计算机。