View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Anthony D Anthony D is offline
external usenet poster
 
Posts: 78
Default Shell to another program from Excel

Hi Jimbo,

Have done something along similar lines which may be adaptable (?)

RetValBmp = Shell(Directory & "img.bat", vbNormalFocus)

The directory is the path to the batch file (e.g. d:\myapp\) (where the xls
file and the image viewer i_view32.exe are also kept).
The batch file contains:
d:
cd d:\myapp\
i_view32.exe .\*.jpg /convert=.\*.bmp

It converts jpg image(s) in that directory to bmp.

Hope this (and/or further posts) may be of help

Anthony

"Jimbo" wrote:

I am trying to shell to an Image viewing program from Excel by using the
following line of code:
Windows(1).WindowState = xlMinimized
ReturnValue = Shell(ImgViewer, 3)

Where ImgViewer is a string containg the path and filename of the program to
be executed.
Excel minimises but immediately returns to full screen
I have inserted a msgbox to trap the ReturnValue and it displays whilst
Excel is minimised but the image viewing program does not appear to be
running
On closing the msgbox Excel returns to normal

What have I done wrong ?

Ultimately I will want to append a variable to the ImageViewer string to
pass command line switches to the program e.g.
ReturnValue = Shell(ImgViewer &" " & Filename, 3)
Is this possible ?