Search Image from a Folder

Hi to everybody, im a total novice in Excel programming.

I really need a macro that from a targeted folder, if i write an image filename in a cell box, that image is showed in a Image control box.
(Images are all in .jpg)

Somebody can help me please?


Thank you in advance for your help.

Originally Posted by Leith Ross

Hello AiKuchi,

This macro will take the file name from cell "A1" on "Sheet1" and display in it in a Control Toolbox Image control on "Sheet1". The Image control will size itself to match the picture. If you need to change the worksheet name, cell, or name of the control, they are marked in red.

Sub ShowPicFile()

  Dim Img As MSForms.Image
  Dim Pic As StdPicture
  Dim PicFile As String
  Dim PicPath As String
  Dim Wks As Worksheet
  
    Set Wks = Worksheets("Sheet1")
    PicPath = "C:\Documents and Settings\Owner\My Documents\"
    
      PicFile = PicPath & Range("A1")
      Set Pic = LoadPicture(PicFile)
    
      Set Img = Wks.OLEObjects("Image1").Object
      With Img
        .AutoSize = True
        .Picture = Pic
        .PictureAlignment = fmPictureAlignmentCenter
      End With
    
End Sub

Adding the Macro
1. Copy the macro above pressing the keys CTRL+C
2. Open your workbook
3. Press the keys ALT+F11 to open the Visual Basic Editor
4. Press the keys ALT+I to activate the Insert menu
5. Press M to insert a Standard Module
6. Paste the code by pressing the keys CTRL+V
7. Make any custom changes to the macro if needed at this time.
8. Save the Macro by pressing the keys CTRL+S
9. Press the keys ALT+Q to exit the Editor, and return to Excel.

To Run the Macro...
To run the macro from Excel, open the workbook, and press ALT+F8 to display the Run Macro Dialog. Double Click the macro's name to Run it.

Thank you so much for your help Leith.

I placed a Image control box on the sheet1 and then I followed your precise instructions and when i try to run the macro, i have this debug problem in the line:

 Set Pic = LoadPicture(PicFile)

Runtime error: 76:

Path not found



Thank you again.

Hello,

I have a userform with a textbox field, a search command button, and an image. I am trying to find code to so that I can search for a file name (the picture name should be written in textbox) from a file on the computer of an image that will then cause that image to come up in the image once the command button is clicked. I am a novice at VBA/Macro. The images are all located on the C drive. Any help would be greatly appreciated.

Thanks,