Showing images in a cell based on filepath

[Astrid123]

Hello everybody,

Im really new to VBA and Excel and my question might have been asked like a thousand times, however I still didnt manage to complete my goal. Hopefully you can help me.
What I want:
I want to show images in a cell based on a filepath. Lets say:

A1 = Flower
A2 = Dog

B1 = D:\Users\user1\Pictures\flower
B2 = D:\Users\user1\Pictures\dog

I want a picture of the flower and dog in cell C1 and C2

Do you have any suggestion?

 

[JayBurn]

' For automatically loading images into specific cells.
Function LoadImage(PicFile As String) As Boolean
Dim AC As Range
On Error GoTo Done
Set AC = Application.Caller
ActiveSheet.Shapes.AddPicture PicFile, True, True, AC.Left + 2, AC.Top + 2, 100, 100
' The last two numbers above is the image dimensions in pixels.
' If you want to change the size of the images change these, keep in mind you will need to adjust
' the cell size prior to LoadImage
'
LoadImage = True
Exit Function
Done:
LoadImage = False
End Function

This drops in a new function;

=LoadImage([URL Location])

The "100, 100" is the image size in pixels, adjust it as you see fit. I can't remember who helped me with this, but I still use it occasionally...

 

[Astrid123]

Thank you for your reply!

But I think Im doing something wrong. When I type the URL location or the cell reference (=LoadImage(B2)) I get a False or an #ERROR ..

Does someone know what Im doing wrong?

 

[Astrid123]

Anyone?