VBA - Macro for getting pictures from file that match cell value

[firasawad]

Hi All,

i don't seem to find the VBA anywhere online,i have been searching for the last 5 hours. need your help

my images stored is in the shared folder \\191.128.5.296\Marina FileServer\E-Commerce_Share\Website Photo\All website photo

I want to get the image that matches name/code in column C and put, resize it in column D.
note that I have 1500 codes that need to be Matched with pictures

for example :
Code AAG1045_1 in column B should match with picture name AAG1045_1 in the shared folder



can you please help with that

 

[Hasson]

A hhh ! now I know my mistake. I'm really sorry about it. I thought the code deals with the files are existed in subfolders in directory . that's why it shows the error . your're right . it's not matched as in directly directory .
my apologies !
now all of your codes works based on what you explained.
thanks so much for your patience and time

 

[abuscander]

If possible, kindly can you add a button to clear the pictures after filling. so I can use it with different sheet in different situations

 

[John_w]

If possible, kindly can you add a button to clear the pictures after filling. so I can use it with different sheet in different situations

Public Sub Delete_All_Pictures()
    Dim i As Long
    For i = ActiveSheet.Pictures.Count To 1 Step -1
        If ActiveSheet.Pictures(i).Name Like "Picture*" Then
            ActiveSheet.Pictures(i).Delete
        End If
    Next
End Sub