Icon Type and Name when Insert File As Icon

[Joyce]

Hello,
I'm using the following code to assist users in inserting files into the
Excel worksheet. It works fine, except that:

1. It shows the entire path - I'd like to see just the file name
2. It shows the Excel icon, even if it's a Word file. I know that it's
because that is written in the code and know I can specify Word, etc., but
can I change that so that the correct icon is displayed

Thanks.

ActiveSheet.Unprotect

'INSERT.OBJECT?(object_class, file_name, link_logical,
' display_icon_logical, icon_file, icon_number, icon_label)
ExecuteExcel4Macro "INSERT.OBJECT?(,""C:\"",False,True,)"

ActiveSheet.Protect

 

[Peter T]

This is virtually as-is from the macro recorder

Insert, Object, Create from File,
tick Display as object
Browse

Sub Macro1()

ActiveSheet.Range("B2").Activate

Call ActiveSheet.OLEObjects.Add(Filename:= _
"C:\Documents and Settings\Owner\My Documents\myWord.doc", _
Link:=False, _
DisplayAsIcon:=True, _
IconFileName:= _
"C:\WINDOWS\Installer\{90110409-6000-11D3-8CFE-0150048383C9}\wordicon.exe",
_
IconIndex:=0, _
IconLabel:= _
"C:\Documents and Settings\Owner\My Documents\myWord.doc")
End Sub

Regards,
Peter T

 

[Joyce]

That doesn't seem to work.

I really like the code that I posted earlier, because it opens into a clean
dialog box and is super easy for the users.

I just can't seem to get the icon to be whatever the document that is
attached is related to.

So, I would like a Word icon when it's a Word doc, an Excel icon if an Excel
doc, etc.

Thanks.