Code to Insert File as Icon & Open Browse Dialog Box

[Joyce]

Hi,

I am wondering if it's possible to get users of a file to the Browse dialog
box when inserting an object as an icon.

This gets me almost there...
ExecuteExcel4Macro "INSERT.OBJECT?(,""C:\"",False,True,)"

Thank you.

 

[Jacob Skaria]

strFile = Application.GetOpenFilename

If this post helps click Yes

 

[Jacob Skaria]

'for the second part of the question

strFile = Application.GetOpenFilename
ActiveSheet.OLEObjects.Add Filename:=strFile, Link:=False, _
DisplayAsIcon:=True, IconFileName:=strIconFile, IconIndex:=0, _
IconLabel:=strFile

'Record a macro..and edit to suit...

If this post helps click Yes

 

[Joyce]

Hello Jacob and thank you for your response.

It works beautifully. I'm wondering if there's anything I can add to do
either of the following:

1. Display only the file name and not the complete path.
2. Display the icon image of the software the file was created in (Adobe,
Word, Excel)

Thanks very much.

 

[Jacob Skaria]

Modified to display just the file name...For the icon try recording a macro
and copy paste the iconfilename from the recorded macro to the below code...

strFile = Application.GetOpenFilename
ActiveSheet.OLEObjects.Add Filename:=strFile, Link:=False, _
DisplayAsIcon:=True, IconFileName:=strIconFile, IconIndex:=0, _
IconLabel:=Mid(strFile, InStrRev(strFile, "\") + 1)

If this post helps click Yes

 

[Joyce]

Thanks Jacob. That worked beautifully.

There are two things I'm wondering now.

1. What if the file is pdf or another type of file - is there a select case
I could use?
2. What if the user's computer doesn't use the exact path to the icon file
as mine?

Thanks again for your help!