| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code to Insert File as Icon & Open Browse Dialog Box
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. |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Code to Insert File as Icon & Open Browse Dialog Box
strFile = Application.GetOpenFilename
If this post helps click Yes --------------- Jacob Skaria "Joyce" wrote: 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. |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Code to Insert File as Icon & Open Browse Dialog Box
'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 --------------- Jacob Skaria "Jacob Skaria" wrote: strFile = Application.GetOpenFilename If this post helps click Yes --------------- Jacob Skaria "Joyce" wrote: 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. |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Code to Insert File as Icon & Open Browse Dialog Box
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" wrote: '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 --------------- Jacob Skaria "Jacob Skaria" wrote: strFile = Application.GetOpenFilename If this post helps click Yes --------------- Jacob Skaria "Joyce" wrote: 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. |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Code to Insert File as Icon & Open Browse Dialog Box
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 --------------- Jacob Skaria "Joyce" wrote: 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" wrote: '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 --------------- Jacob Skaria "Jacob Skaria" wrote: strFile = Application.GetOpenFilename If this post helps click Yes --------------- Jacob Skaria "Joyce" wrote: 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. |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Code to Insert File as Icon & Open Browse Dialog Box
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! "Jacob Skaria" wrote: 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 --------------- Jacob Skaria "Joyce" wrote: 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" wrote: '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 --------------- Jacob Skaria "Jacob Skaria" wrote: strFile = Application.GetOpenFilename If this post helps click Yes --------------- Jacob Skaria "Joyce" wrote: 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. |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Icon Type and Name when Insert File As Icon | Excel Programming | |||
| Code for bring up the file-open dialog box | Excel Programming | |||
| FIle Open/Browse on Macintosh | Excel Programming | |||
| File Browse Function (Open dialog box for choosing file) | Excel Programming | |||
| using Windows API Open Dialog/Browse in VBA - center form in scree | Excel Programming | |||
Linear Mode
