attach file as icon in a worksheet (hope it's not so tricky)

[jacko]

i wish to create a button (from forms) and when click on it, it will pop up
the Insert Object dialog box, and automatically go to Create From File tab
with Display As Icon selected. Then it allows the user to select any file to
attach to the worksheet.

how do i do this with the button and macro? i hope it's not the tricky one
and appreciate experts out there can help.

[Vasant Nanavati]

Not completely reliable, but:

SendKeys "{TAB}{TAB}{TAB}{TAB}{RIGHT}%a%n"
Application.Dialogs(xlDialogInsertObject).Show

--

Vasant



"jacko" <jacko@discussions.microsoft.com> wrote in message
news:579037D4-0BF6-41BD-BE65-FB2730E056DA@microsoft.com...
> i wish to create a button (from forms) and when click on it, it will pop
up
> the Insert Object dialog box, and automatically go to Create From File tab
> with Display As Icon selected. Then it allows the user to select any file
to
> attach to the worksheet.
>
> how do i do this with the button and macro? i hope it's not the tricky one
> and appreciate experts out there can help.

[Tom Ogilvy]

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


--
Regards,
Tom Ogilvy


"jacko" <jacko@discussions.microsoft.com> wrote in message
news:579037D4-0BF6-41BD-BE65-FB2730E056DA@microsoft.com...
> i wish to create a button (from forms) and when click on it, it will pop
up
> the Insert Object dialog box, and automatically go to Create From File tab
> with Display As Icon selected. Then it allows the user to select any file
to
> attach to the worksheet.
>
> how do i do this with the button and macro? i hope it's not the tricky one
> and appreciate experts out there can help.

[Vasant Nanavati]

Nice one, Tom!

Regards,

Vasant

"Tom Ogilvy" <twogilvy@msn.com> wrote in message
news:%2329lWwxTFHA.2532@TK2MSFTNGP10.phx.gbl...
> Sub showDialog()
> 'INSERT.OBJECT?(object_class, file_name, link_logical,
> ' display_icon_logical, icon_file, icon_number, icon_label)
> ExecuteExcel4Macro "INSERT.OBJECT?(,""C:\"",False,True,)"
> End Sub
>
>
> --
> Regards,
> Tom Ogilvy
>
>
> "jacko" <jacko@discussions.microsoft.com> wrote in message
> news:579037D4-0BF6-41BD-BE65-FB2730E056DA@microsoft.com...
> > i wish to create a button (from forms) and when click on it, it will pop
> up
> > the Insert Object dialog box, and automatically go to Create From File
tab
> > with Display As Icon selected. Then it allows the user to select any
file
> to
> > attach to the worksheet.
> >
> > how do i do this with the button and macro? i hope it's not the tricky
one
> > and appreciate experts out there can help.
>
>

[jacko]

Excellent!!! Billions thanks to Tom!! and Vasant too!

"Tom Ogilvy" wrote:

> Sub showDialog()
> 'INSERT.OBJECT?(object_class, file_name, link_logical,
> ' display_icon_logical, icon_file, icon_number, icon_label)
> ExecuteExcel4Macro "INSERT.OBJECT?(,""C:\"",False,True,)"
> End Sub
>
>
> --
> Regards,
> Tom Ogilvy
>
>
> "jacko" <jacko@discussions.microsoft.com> wrote in message
> news:579037D4-0BF6-41BD-BE65-FB2730E056DA@microsoft.com...
> > i wish to create a button (from forms) and when click on it, it will pop
> up
> > the Insert Object dialog box, and automatically go to Create From File tab
> > with Display As Icon selected. Then it allows the user to select any file
> to
> > attach to the worksheet.
> >
> > how do i do this with the button and macro? i hope it's not the tricky one
> > and appreciate experts out there can help.
>
>
>

[Rivermud]

Is there any way to make this work in a Shared Workbook?