Inserting multiple images into specific cells

[IONSASOON]

i have multiples image (100+) that i wanted to insert them into specific cells

those images have file name inclusive of their coordinates ( for eg, pictureX1Y1.jpg and pictureX0Y1.jpg)

I want to insert them into the cells according to their coordinates

the coordinates may sometimes vary from X=-6 to X = 6 and Y =-7 and Y=7

so it sums up there will be 100+ of images to form a collage

anyone can help?

Thanks in advance

[NickyC]

this macro might get you started. It assumes all the picture files follow the naming convention you described. It takes all the files in the specified directory that conform to that naming pattern, extracts the x and y values and places the pictures in cells using those co-ordinates relative to a central cell (assumed here to be cell N10).

for this to achieve the effect you want, the cells will have to be resized to roughly the same dimensions as the pictures you import

Sub pictures_place()
Dim MyDir, MyPic, CentreCell As Range, xx As Long, yy As Long, ll As Long, rr As Long, Xpos As Long, YPos As Long


Set CentreCell = Range("N10")

MyDir = "C:\MyPictures\"

MyPic = Dir(MyDir & "picture*.jpg")

Do While MyPic <> ""
    ll = InStr(LCase(MyPic), "x")
    mm = InStr(LCase(MyPic), "y")
    rr = InStr(LCase(MyPic), ".")
    Xpos = Mid(MyPic, ll + 1, mm - ll - 1)
    YPos = Mid(MyPic, mm + 1, rr - mm)
    CentreCell.Offset(Xpos, YPos).Select
    ActiveSheet.Pictures.Insert(MyDir & MyPic).Select
    MyPic = Dir
    
Loop

Set CentreCell = Nothing
End Sub