- Nov 25, 2020
- Office Version
Sub InsertirPictures() ' Help from YKY & RoryA ' Personal Note: Below file path needs to be changed to where the IR phots are located!!! ' Const fPath = "C:\Users\576186\Pictures\" Dim a As Variant, cel As Range, picPath As String For Each a In Array("A38", "F38", "A54", "F54") Set cel = Range(a) picPath = fPath & cel.Value If Not Dir(picPath, vbDirectory) = vbNullString Then cel.Worksheet.Shapes.AddPicture Filename:=picPath, LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, _ Top:=cel.Offset(, 0).Top, Left:=cel.Offset(, 0).Left, Width:=209, Height:=209 End If Next a End Sub
|ISSUE #||FLOOR||ROOM||WALL / Floor / Ceiling / or GRID LINES||OVERHEAD / OCCUPIED SPACE / UNDERFLOOR||DESCRIPTION /LOCATION||TYPE TAG||ISSUE #||PHOTO||PHOTO 2||PHOTO 3|
|1||Basement||020-Hall||WEST WALL||OCCUPIED SPACE||remember to link some pics||ABANDONED Conductor||1||TK1.jpg||TK2.jpg||TK3.jpg|
|2||Basement||020-Hall||SOUTH WALL||OCCUPIED SPACE||0||ABANDONED Conductor||2||TK4.jpg||EUCOM.JPG||PAE.JPG|
|3||Basement||19||SOUTH WALL||OCCUPIED SPACE||0||ABANDONED Conductor||3||0||0||0|
|4||Basement||19||SOUTH WALL||OCCUPIED SPACE||0||Building Material Left in Wall||4||0||0||0|
Good Day, I am hoping one of you Brilliant coders can once again help or guide me to a solution.
In this workbook we consolidate all our reports on to one worksheet that we have gathered from multiple users. On the next worksheet, I filter the data needed at the time and export the findings in one format or another. PDF, Print, or Email.
There are pictures that are associated with date and are saved in folder. I need those pictures to be saved in the excel workbook. I am using a formula from another workbook some fine coders here helped me with. Now I need this code to look up an array of cells and over three columns. The data set may grow or shrink so I did not want a set cell but a flexible range.
Attached is the code I have.
And what the workbook looks like.
Can you please help?
Thanks in advance.