Inserting pictures without a control

[zapBranigan]

I would like to open a Picture file in excel without having to use a control.

I tought I could use something like this

Sub OpenBook1()
EXEPath = Application.Path & Application.PathSeparator
fName = EXEPath & "BOOK1.XLS"
Set myBook = Workbooks.Open(Filename:=fName)
MsgBox myBook.Worksheets(1).Range("A1&quot.Value
End Sub

but this is used for workbooks.

Is there any similar way to open a picture file ???

Thank you for your time,

Zap_Branigan

 

[Store300]

This should work (or something along these lines):

ActiveSheet.Pictures.Insert("C:\MyPath\MyPicture.jpg&quot Store300

Store300@ftnetwork.com