Macro to browse image/picture files

[Dee]

Hi Guys,


I am using the below code to search for an excel file.Can any one of you suggest the code to get the image/picture files (jpeg,jpg,bmp files for example)in the similar pattern?


Flatfilename = Application.GetOpenFilename(FileFilter:="Excel files (*.xls), *.xls",

Title:="Please choose a file")


Thanking you in advance,

Dee

 

[Hui]

do you mean like


Flatfilename = Application.GetOpenFilename(FileFilter:="Pic Files (*.jpg, *.JPEG, *.Bmp), *.jpg, *.JPEG, *.bmp")

 

[Dee]

HI HUI,

Thank you very much for your quick reply.This is exactly what i was looking for.

Basically i was trying to browse for the picture files to copy and paste it to the excel file.

Can you please help me with some smart code for the same?


Thanking you in advance,

Dee

 

[Hui]

I think it should be

filetoopen = Application.GetOpenFilename("Pic Files (*.jpg), *.jpg ,Jpeg Files (*.jpeg), *.jpeg,Bitmap Files (*.bmp), *.bmp")

 

[Hui]

I'm not sure how much more complex than this you want

[pre]

Sub InsertPic()

filetoopen = Application.GetOpenFilename("Pic Files (*.jpg), *.jpg ,Jpeg Files (*.jpeg), *.jpeg,Bitmap Files (*.bmp), *.bmp")
ActiveSheet.Pictures.Insert(filetoopen).Select
End Sub

[/pre]

 

[Dee]

Hi Hui,


Thank you very much...Its exactly suits my requirement with minimum editing.


Dee