Help with Shell command in Excel

[milantst]

Hello,

I have a button in a spreadsheet that is supposed to open a TIFF file. There are 3-4 users, and they all have different default applications that open the TIFF format, and work on different Windows platforms (2000 NT, XP). How can I shell open the TIFF files with whatever the default opener for that file type?

On my computer, it looks like this:


Private Sub OpenImage(FileName)

Dim OpenImaging

OpenImaging = Shell("C:\Program Files\Windows NT\Accessories\ImageVue\kodakimg.exe K:\Imagefolder\" & FileName & ".tif", 1)

End Sub


The button subs look like this:

Private Sub Label1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Label1.SpecialEffect = 2

End Sub

Private Sub Label1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Label1.SpecialEffect = 1
OpenImage ("Pic062")

End Sub


But I know that I will not work on the other comps. The answer should work in Excel VB.

Help, please!

 

[Norie]

Why not use a hyperlink to open the file, instead of Shell?

 

[milantst]

Why not use a hyperlink to open the file, instead of Shell?

That is a very good suggestion, it works and it's simpler than the buttons idea.

But how do I get rid of the following message:

"Some files can contain viruses or otherwise be harmful to your computer, etc. Would you like to open this file?"