VBA to load pictures from a folder

[IoanZ]

Hello

In folder "C:\Pictures" from my pc I Have 3 pictures (first pictures it's called "car" // 2nd pictures "dog" // 3rd pictures "horse") all in format .jpg

In an active workbook in sheet1 I have in Cell A1 inserted word car
A2 inserted word dog
A3 inserted word horse

I want to know which is the vba code to load specific image from path "C:\Pictures" and put them in cells B1 // B2 // B3 at the same size for all
(*A1=car ... in B1 insert picture car..)

 

[IoanZ]

now i use this code but with this code I can load a single image


Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)


Dim myPict As Picture
Dim PictureLoc As String


If Target.Address = Range("A2").Address Then


ActiveSheet.Pictures.Delete


PictureLoc = "C:\\Pictures" & Range("A2").Value & ".jpg"


With Range("B2")
Set myPict = ActiveSheet.Pictures.Insert(PictureLoc)
.RowHeight = myPict.Height
myPict.Top = .Top
myPict.Left = .Left
myPict.Placement = xlMoveAndSize
End With


End If


End Sub

 

[IoanZ]

I find it

Public Function PictureLookup(Value As String, Location As Range, Index As Integer)


Application.Volatile


Dim lookupPicture As Shape
Dim sheetName As String
Dim picTop As Double
Dim picLeft As Double


sheetName = Location.Parent.Name


'Delete current picture with the same Index if exists
For Each lookupPicture In Sheets(sheetName).Shapes
If lookupPicture.Name = "PictureLookup" & Index Then
lookupPicture.Delete
End If
Next lookupPicture


'Get position of cell calling the UDF
picTop = Location.Top + 10
picLeft = Location.Left + 30



'Add the picture in the right location
Set lookupPicture = Sheets(sheetName).Shapes.AddPicture _
("C:\Pictures" & Value & ".jpg", msoFalse, msoTrue, picLeft, picTop, -1, -1)
lookupPicture.Width = 60
lookupPicture.Height = 60
'change the picture name
lookupPicture.Name = "PictureLookup" & Index


PictureLookup = ""


End Function


=PictureLookup(A8;B8;i)


i=1 to ...1000