I use the following macro to open excel files. Can this be modified to open
a picture ppppp.jpg ?

. . . or, can someone help me with a new macro that can open pictures
. . . I would still like to have the file checking options to see if already
open and if file actually exists.

Thanks
Matt @ Launchnet

Sub NewExcelWithWorkbookFantastic()
Dim oXL As Object 'This is needed to open a new instance of Excel.
'Without it, the file is only opened as a new Window
Dim testFileFind
Dim oWB As Object

If FileAlreadyOpen("c:\extrafiles\fantastic.xls") = True Then
MsgBox "File is alreaady open"

End
Else

'The following tests for the existance of the file
testFileFind = Dir("c:\extrafiles\fantastic.xls")

'If the file is not found there will be nothing
'in the variable and processing ends.
If Len(testFileFind) = 0 Then
MsgBox "You do not have this file in C:\extrafiles\"
End
End If

'THIS LINE OF CODE OPENS THE NEW INSTANCE OF EXCEL.
Set oXL = CreateObject("Excel.Application")

'THIS LINE OF CODE MAKES THE NEW INSTANCE OF EXCEL VISIBLE.
oXL.Visible = True
Set oWB = oXL.Workbooks.Open("c:\extrafiles\fantastic.xls")

End If
End Sub

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200902/1