excel - 使用宏将文件附加为excel中的图标

Question

我正在尝试创建一个在 Excel 中使用的宏，它允许用户将文件作为图标附加(因为他们将无法使用插入对象方法)。
我已经到了宏成功附加文件的地步，但图标最终是一个空白的白色矩形，比正常生成的要大。

Dim File As Variant

   File = Application.GetOpenFilename

   ActiveSheet.OLEObjects.Add(Filename:=File, Link:=False, DisplayAsIcon:=True).Select

第三行基于以下录制的宏，但显然返回要使用的图标和文件名的特定值。

ActiveSheet.OLEObjects.Add(
     Filename:= "filepath" , 
     Link:=False, 
     DisplayAsIcon:=True, 
     IconFileName:= "path for icon", 
     IconIndex:=0, 
     IconLabel:="filename").Select

有没有办法从 File = Application.GetOpenFilename 获取 IconFileName 和 IconLabel 以在 ActiveSheet 代码中使用？
另外，有没有办法指定然后显示的图标的大小？
提前致谢。

Answer 1

您可以指定Height和 Width和 Top和 Left在 .Add功能。
来自此来源:https://docs.microsoft.com/en-us/office/vba/api/excel.oleobjects.add

IconFileName

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.

要使用默认图标，只需去掉 IconFileName此外，您必须解锁默认 LockAspectRatio如果您希望能够自由拉伸(stretch)图标:

With ActiveSheet.OLEObjects.Add( _
     Filename:="C:\Users\Tyrael\Documents\Casa Del Mar.pdf", _
     Link:=False, _
     DisplayAsIcon:=True, _
     Top:=[D1].Top, _
     Left:=[D1].Left)
         .ShapeRange.LockAspectRatio = msoFalse
         .Height = 500
         .Width = 500
End With

结果: