Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Double Click to open external program
I have an image on my worksheet. This image changes based on the activecell. I'd like to be able to double click that image control, and have my imagebrowser program (IrfanView) open with the image ready to be edited. At the moment, I've tried the following: Private Sub ImageBox_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Dim myPicture As String, ImageID myPicture = Range("C" & ActiveCell.Row).Value ' column C includes the file paths of the images MsgBox (myPicture) ImageID = Shell("C:\Program Files\IrfanView\i_view32.exe" & myPicture, 1) 'ImageID = Shell(myPicture, 1) End Sub I've tested the filepaths are accurate using hyperlinks. Thanks in advance for any ideas. Darren |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Double Click to open external program
Darren,
I have not idea about passing parameters to irfanview, but what you can do is run the file at a given path in its default program using the ShellExecute API call. ie. Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ (ByVal hwnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long) As Long Sub Test() mypicture = "C:\Images\Image1.jpg" lReturn = ShellExecute(0, "", mypicture, "", "", 0) End Sub HTH, Robin Hammond www.enhanceddatasystems.com "Darren Hill" wrote in message news:opsnehmwbked89cl@omega... I have an image on my worksheet. This image changes based on the activecell. I'd like to be able to double click that image control, and have my imagebrowser program (IrfanView) open with the image ready to be edited. At the moment, I've tried the following: Private Sub ImageBox_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Dim myPicture As String, ImageID myPicture = Range("C" & ActiveCell.Row).Value ' column C includes the file paths of the images MsgBox (myPicture) ImageID = Shell("C:\Program Files\IrfanView\i_view32.exe" & myPicture, 1) 'ImageID = Shell(myPicture, 1) End Sub I've tested the filepaths are accurate using hyperlinks. Thanks in advance for any ideas. Darren |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Double Click to open external program
That works a charm.
Thanks, Robin :) Darren On Thu, 10 Mar 2005 13:18:07 +0800, Robin Hammond wrote: Darren, I have not idea about passing parameters to irfanview, but what you can do is run the file at a given path in its default program using the ShellExecute API call. ie. Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ (ByVal hwnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long) As Long Sub Test() mypicture = "C:\Images\Image1.jpg" lReturn = ShellExecute(0, "", mypicture, "", "", 0) End Sub HTH, Robin Hammond www.enhanceddatasystems.com "Darren Hill" wrote in message news:opsnehmwbked89cl@omega... I have an image on my worksheet. This image changes based on the activecell. I'd like to be able to double click that image control, and have my imagebrowser program (IrfanView) open with the image ready to be edited. At the moment, I've tried the following: Private Sub ImageBox_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Dim myPicture As String, ImageID myPicture = Range("C" & ActiveCell.Row).Value ' column C includes the file paths of the images MsgBox (myPicture) ImageID = Shell("C:\Program Files\IrfanView\i_view32.exe" & myPicture, 1) 'ImageID = Shell(myPicture, 1) End Sub I've tested the filepaths are accurate using hyperlinks. Thanks in advance for any ideas. Darren -- Using Opera's revolutionary e-mail client: http://www.opera.com/m2/ |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Double-click and open .csv file | Setting up and Configuration of Excel | |||
Double Click will not open my Workbook | Excel Discussion (Misc queries) | |||
Double-click X to close program | Excel Discussion (Misc queries) | |||
why do 5 workbooks open when I double click one | Excel Discussion (Misc queries) | |||
Open external program | Excel Programming |