View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
obsessive obsessive is offline
external usenet poster
 
Posts: 12
Default How to close an open image...

Hi .. I have the following code ... (thanks to the message board) that
opens an image but I am wondering if it's possible to have the image
automatically close (after maybe a minute)...
I am familiar with "application.wait", but do not know how to close the
file...here's my opening code...any ideas??

Sub OpenButton1_Click()
Dim Picture As String
Dim RETVAL
Picture = "c:\picfolder\" & ActiveSheet.Range("C2").Value & ".tif"
RETVAL = Shell("EXPLORER " & Picture, 1)
End Sub

Any help would be greatly appreciated.