Inserting Pictures from a folder location built from 3 cells

[ritna]

Mr. Excel

I am looking for a macro to insert all of the pictures from a folder who's address is derived from multiple cells.

Picture location is as follows:
S:\Quality\QA\Warranty Photos 2017\ "cell N4" \ "cell K4" \ "merged cells J3 and K3"

All files in that folder will be ".jpeg"

Image currently follow no set pattern but if it needs to it can be done.
If so lets call them "p1", "p2", "p3" . . . "p7" (no more than 7 photos would be needed)

Image insertion location could be cell "V4" but doesn't really matter
(if multiple locations needed for multiple cells then just increase cell number i.e. "V5", "V6", "V7" ect)

No image modifications need to be done.

Is this even possible?

Any input is greatly appreciated

 

[ritna]

also, these cells are auto filled from a different worksheet via an entry into a different cell on the original worksheet (grabbing values from a master register to build individual reports).
This means the cells listed above would be "#N/A" until a value is entered into "merged cells J3 and K3"

 

[Nine Zero]

perhaps something like this

Sub Picture()
Dim first As String
Dim second As String
Dim third As String


first = Range("N4").Value
second = Range("K4").Value
third = Range("J3").Value & Range("K3").Value


ActiveSheet.Pictures.Insert("[COLOR=#333333]S:\Quality\QA\Warranty Photos 2017[/COLOR]\" & first & "\" & second & "\" & third & ".jpg").Select
End Sub

 

[ritna]

Gave a error number 400

perhaps something like this

Sub Picture()
Dim first As String
Dim second As String
Dim third As String


first = Range("N4").Value
second = Range("K4").Value
third = Range("J3").Value & Range("K3").Value


ActiveSheet.Pictures.Insert("[COLOR=#333333]S:\Quality\QA\Warranty Photos 2017[/COLOR]\" & first & "\" & second & "\" & third & ".jpg").Select
End Sub

 

[Nine Zero]

hmmm maybe its erroring out because i didnt add the placement of the image.... try this now, i simply added the red portion

Sub Picture()
Dim first As String
Dim second As String
Dim third As String




first = Range("N4").Value
second = Range("K4").Value
third = Range("J3").Value & Range("K3").Value


[B][COLOR=#ff0000]Range("V4").Select[/COLOR][/B]
ActiveSheet.Pictures.Insert("S:\Quality\QA\Warranty Photos 2017\" & first & "\" & second & "\" & third & ".jpg").Select
End Sub

 

[Nine Zero]

The only reason i could think of that this would be wrong is the path you specified isnt correct... try taking a look at that

plus make sure the image you want is a .jpg

I tested it and it works fine

 

[ritna]

so I think whats happening is the value in cell J3 (that you label as "third") isn't a picture file, it is folder in which multiple pictures of various naming conventions are kept (I think your code is trying to insert a picture with a name constructed as "third".jpg from the folder called "second"). Since a strict naming convention stops at the "third" folder level I was looking for a way to dump all the photos in a folder into a worksheet.