Images in another Folder

[S P P]

Images in another Folder


With this code it works with images in the same folder as the spreadsheet

>>> use code - tags <<<

With Planilha1
If Not Intersect(Target, .Range("A2")) Is Nothing Then
.Image1.Picture = LoadPicture(Application.ThisWorkbook.Path & "\" & .Range("A2").Cells & ".Jpg")
End If
End With

How to modify the code with the images in another folder.

 

[Debaser]

Replace Application.ThisWorkbook.Path with the path you want - e.g. "C:\some folder\pictures"

 

[S P P]

Worked perfectly.
Thanks

 

[S P P]

I did this in case I needed to change

>>> use code - tags <<<

Dim Path As String
Path = "C:\"
With Planilha1
If Not Intersect(Target, .Range("A2")) Is Nothing Then
.Image1.Picture = LoadPicture(Path & "\" & .Range("A2").Cells & ".Jpg")
End If
End With

 

[vletm]

S P P​

Be careful ...
Your path ends with \.
... and later, You're using Path & "\" & ... which means C:\\.

 

[S P P]

Who needs to use it and just put the path

Path = "C:\"